Задание:
Составить программу, которая уменьшит первое число в 5 раз, если оно больше второго по абсолютнойвеличине.
Решение:
program cnjdknc; uses crt; var a,b: real; beginreadln (a,b); if a>b then a: =a/5; writeln (a); readln; end.
Знаете другой ответ?