Pascal abcНапишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.

Pascal abc Напишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.
Гость
Ответ(ы) на вопрос:
Гость
program abc; var i:integer; begin read(i); if i<0 then i:=sqr(i); write(i); end.
Гость
program kv;   var a,x:integer;    begin    a:=0;    read(x);         if x
Не нашли ответ?
Ответить на вопрос
Похожие вопросы