Задание:
Даны три числа возвести в квадрат те из них значения которых отрицательны
Решение:
PROGRAM first; VAR i,a,b: integer; BEGIN cls; read (a,b,i); if a<0 then write (sqr (a); if b<0 then write (sqr (b); if i<0 then write (sqr (i) END.
Знаете другой ответ?