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

Question

Информатика

Сильвана

20 марта, 03:46

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

+3

Ответы (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.