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

Question

Информатика

Максиан

4 мая, 09:45

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

+1

Ответы (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.