Program 1;
var x : integer;
begin
write('введите число');
readln(x);
if x<5 then write(xxp(10)) else write('число <5');
readln;
<span>end.</span>
Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.
А) (а+б) - 2*а*б
б) 6*а*а + 15*а*б - 13*б*б
в)а*а - б*б
Решение для то и иначе:
X:=256;
Y:=47;
Y:=X-3*Y=256-3*47=256-141=115;
то S:=(X^2-Y/5)*3=(256^2-115/5)*3=196539
иначе S:=(Y^3-X/2)*4=(115^3-256/2)*4=6082988
Перевести в десятичную надо.
Потом разделить и перевести во вторичную.
Ответ: 100111