<span>f:= x*x*x*x; x:=x+0.1; writeln (f,x);
последний варант
</span>
N=2^i = 2^16симв => i=4бит
I = i * K = 4бит * 32симв = 128бит
<span>a = 40 b = 10
b = - a / 2 * b
</span>b = - 40 / 2 * 10 = -200
a = 40 b = -200<span>
если a < b то c = b - a
иначе c = a - 2 * b
40 < -200 (нет)
</span>c = a - 2 * b = 40 - 2 * (-200) = 40 + 400 = 440
Ответ: 440
Если нужен паскаль то вот:
var a,b: integer;
begin
writeln('Введите сторону a');
readln(a);
writeln('Введите сторону b');
readln(b);
writeln;
writeln('Периметр=',(a+b)*2);
readln;
end.