Даны 2 числа а и б если они оба отрицательные то найти сумму их квадратов иначе модуль их разностей

Question

Захария

4 января, 01:41

+1

Ответы (1)

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

Беатриса · Answer 1

Var a, b, r:integer;

begin

readln (a, b) ;

if (a<0) and (b<0) then r:=sqr (a) + sqr (b)

else r:=abs (a-b) ;

write (r) ;

end.