Даны два числа. Меньшее из них заменить квадратом…

Question

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

Answer 1

42

serega174

25 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: