Задание:
Составьте программу которая возводит в квадрат введенное целое число если оно отрицательное и выводит на экранрезультат
Решение:
vara: longint; beginwrite ('A='); readln (a); if a<0 then begina: =sqr (a); write (a); end; readln; end.
Знаете другой ответ?