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