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

Question

Информатика

Егор

20 октября, 05:39

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

+2

Ответы (1)

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

Вишута · Answer 1

Var

a, n : integer;

begin

write ('введите число ') ;

readln (a) ;

if a>0 then write ('ошибка. число не отрицательное ') else

begin

if a<0 then n:=a*a;

writeln ('квадрат числа ', n) ;

end;

end.