//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ReadInteger;
Println(a>0?a*a:a*a*a*a);
end.
<span>а) 111000111 (2) = 455 (10)
б) </span><span>100011011 (2) = 283 (10)
в) </span><span>1001100101 (2) = 613 (10) и 1001 (2) = 9 (10)
г) </span><span>1001001 (2) = 73 (10) и 11 (2) = 3 (10)</span>
В двоичной системе счисления дробного числа быть не может
<span>const N=30;
var
a: array [1..N] of integer;
i, j, min, min2, s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do bein
for j:=1 to N do begin
if (a[min]-a[mim2] < a[i]-a[j]) then bein
min1 = i;
min2 = j;
end;
end;
end;
Если я конечно правильно задание понял)</span>
D = (x1^2 + x2^2)^(1/2)
Q = I^2 * R
J = 2 * pi * R
S = v0 * t + a * t^2 / 2
R = 1 / (1 / R1 + 1 / R2)
ИЛИ
D = (x1*x1 + x2*x2)^(1/2)
Q = I*I * R
J = 2 * pi * R
S = v0 * t + a * t*t / 2
R = 1 / (1 / R1 + 1 / R2)