Даны два числа. Меньшее из них заменить квадратом, а большее умножьте на 10
var
a, b:integer;
begin
write(a = ); readln(a);
write(b = ); readln(b);
if a < b then
begin
a := a * a;
b := b * 10;
end
else
begin
b := b * b;
a := a * 10;
end;
writeln(a = , a);
writeln(b = , b);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
