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

Question

Информатика

Калида

28 сентября, 10:38

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

+1

Ответы (1)

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

Натуля · Answer 1

var a:integer;

begin

writeln ('Введите целое число') ;

read (a) ;

if a<0 then writeln ('Квадрат ', a,'=', sqr (a))

else writeln ('Число положительное') ;

end.