Даны 2 числа. Если они оба отрицательные, то вывести их модуль, если они оба положительные, то возвести их в квадрат.

Question

Информатика

Герман

17 апреля, 01:08

Даны 2 числа. Если они оба отрицательные, то вывести их модуль, если они оба положительные, то возвести их в квадрат.

+2

Ответы (1)

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

Лега · Answer 1

Program pp;

var a, b:integer;

begin

read (a, b) ;

if (a>0) and (b>0) then begin

a:=sqr (a) ;

b:=sqr (b) ;

end;

if (a<0) and (b<0) then begin

a:=abs (a) ;

b:=abs (b) ;

end;

writeln (a, b) ;

end.