ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ! ПОЖАЛУЙСТА!

Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ! ПОЖАЛУЙСТА! Вводятся 2 числа a и b, меньшее из них заменить удвоенным произведением. Большее умножить на 10. Есличисла равны оставить без изменения

Answer 1

66

rostik

09 апреля 2023

var a,b: integer; beginreadln (a,b); if (a>b) then b: =2*(a*b); a: =a*10; if (b>a) then a: =2*(a*b); b: =b*10; writeln ('a=',a,'b=',b); readln; end.

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

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

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