Задание:
Задача для решения в Pascale: компьютер запрашивает число, если число положительное, то делим его на 7, в обратном случае возводим егов квадрат.
Решение:
program Chislo; var x,y: real; begin write ('Введите число: '); readln (x); if x>=0 then y: =x/7 else y: =sqr (x); writeln (y); end.
Знаете другой ответ?