Pascal abc

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

Question

Александрыч

13 июня, 21:22

+3

Ответы (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Напишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.