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

Question

Виолетта

25 марта, 20:58

+3

Ответы (1)

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

Эма · Answer 1

var

a:longint;

begin

write ('A = ') ; readln (a) ;

if a<0 then begin

a:=sqr (a) ;

write (a) ;

end;

readln;

end.