12(10)=1100(2) -две
ттттттттттттттттттттт
Я бы помогла, да не могу открыть DOG((
К аппаратному обеспечению относятся устройства ввода и хранения информации, соответственно это варианты А, Б
uses math;
var a1, an: real;
i, n: integer;
begin
read(n);
read(a1);
for i := 2 to n - 1 do read();
read(an);
writeln(abs(a1 - an));
end.
<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
var y:real;
if x<=-2 then y:=Cos(2*x)
else
if x<0 then y:=(3+2*x)/(x*x)
else y:=Ln(x)+x*x;
Writeln(y)
end.
<u>Пример</u>
x= 2.11
5.19878794748797
x= 0
-бесконечность
