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

Question

Михайлина

13 марта, 06:36

+5

Ответы (1)

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

Ленин · Answer 1

var

a:longint;

begin

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

if a<0 then begin

a:=sqr (a) ;

write (a) ;

end;

readln;

end.