Var
x, y, r: real;
begin
read(x, y, r);
if ((x >= 0) and (y >= 0) and (x * x + y * y <= r * r))
or ((x < 0) and (y < 0) and (x + y >= -r)) then
write('да')
else
write('нет');
end.
Совершенно бесплатное порево
Вспомогательная программа, для специализированных типовых задач.( калькулятор)
Для настроек в том числе.
А)a•2+b•3
б) (a+a)•(b+b)
в)a•3+b+c
г) (a•2+b)+c
е) a•2+b•3
ж)(a•2)+c•2+(b•2)
Ну а два остальных попробуй сделать сам/а
1) 4*90=360
2) 4416:8=552
3) 14кб / 16384 = 14 * 8 * 1024 / 16384 бит = 7 бит