Задание:
Pascal abcНапишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.
Решение:
Program abc; var i: integer; beginread (i); if i<0 theni: =sqr (i); write (i); end.
Знаете другой ответ?