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

Question

Славуха

31 августа, 16:57

+3

Ответы (1)

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

Александр · Answer 1

Var a:integer;

begin

read (a) ;

if a>0 then a: = sqr (a)

else write ('число отрицательное') ;

end.