Даны 2 числа а и б если они оба отрицательные то найти сумму их квадратов иначе модуль их разностей
66
ОТВЕТЫ
Var a,b,r:integer;
begin
readln(a,b);
if (alt;0) and (blt;0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.
begin
readln(a,b);
if (alt;0) and (blt;0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.
133
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Leesov
Автомат получает на вход четырёхзначное десятичное число. По полученному ...
2019-05-24 09:52:49
Титов
Определить объем растрового изображения размером 200×200 и 256 цветами. ...
2019-05-24 09:52:07
Mumath
Каким образом могут быть визуализированы большие объемы однотипной табличной ...
2019-05-24 09:51:27
Александр
Автомат получает на вход два двузначных десятичных числа. По ...
2019-05-24 09:50:39