Решите плиз 7 задание
В Паскале
Заранее спасибо
Приложения:
Ответы на вопрос
Ответил AnonimusPro
0
Program n7;
var: x, y, R: real;
begin
readln(x);
readln(y);
readln(R);
if (abs(x)<R) and (abs(y)<R) then do
writeln('принадлежит');
else
writeln('не принадлежит');
end.
var: x, y, R: real;
begin
readln(x);
readln(y);
readln(R);
if (abs(x)<R) and (abs(y)<R) then do
writeln('принадлежит');
else
writeln('не принадлежит');
end.
Новые вопросы