Pascal abc

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

Question

Созонт

27 сентября, 09:32

+4

Ответы (2)

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

Нонюся · Answer 1

Program kv;

var a, x:integer;

begin

a:=0;

read (x) ;

if x
end.

Ленюся · Answer 2

Program abc;

var i:integer;

begin

read (i) ;

if i<0 then

i:=sqr (i) ;

write (i) ;

end.

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