Pascal abc

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

Question

Аида

30 декабря, 06:51

+1

Ответы (2)

Знаешь ответ?

Руслан · Answer 1

Program abc;

var i:integer;

begin

read (i);

if i<0 then

i:=sqr (i);

write (i);

end.

Петюня · Answer 2

Program kv;

var a, x:integer;

begin

a:=0;

read (x);

if x
end.

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