Даны два числа. Меньшее из них заменить квадратом, а большее умножьте на 10

Question

Информатика

Радован

5 июля, 18:04

Даны два числа. Меньшее из них заменить квадратом, а большее умножьте на 10

+1

Ответы (1)

Знаете ответ?

Фрида · Answer 1

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.