Даны 2 числа а и б если они оба отрицательные то найти сумму их квадратов иначе модуль их разностей
Даны 2 числа а и б если они оба отрицательные то найти сумму их квадратов иначе модуль их разностей
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы