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

Question

Информатика

Григорий

3 марта, 00:05

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

+3

Ответы (1)

Знаете ответ на вопрос?

Куля · Answer 1

var a:integer;

begin

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

read (a) ;

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

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

end.