даны 2 числа а и б если они оба отрицательные то найти сумму их квадратов иначе модуль их разностей
Ответы
Ответ дал:
0
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.
begin
readln(a,b);
if (a<0) and (b<0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.
Похожие вопросы
2 года назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад