Помогите, пожалуйста, буду очень благодарна ♥️ (pascal)
Приложения:
Ответы на вопрос
Ответил petyaGavrikov
0
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=4*4)and(x>=0)and(y>=0)or
(x*x+y*y<=5*5)and(x>=0)and(y<=0)
then writeln('Да')
else writeln('Нет');
end.
Пример:
x = 2
y = 2
Да
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=4*4)and(x>=0)and(y>=0)or
(x*x+y*y<=5*5)and(x>=0)and(y<=0)
then writeln('Да')
else writeln('Нет');
end.
Пример:
x = 2
y = 2
Да
Ответил TequilaSunrise
0
спасибо большое (:
Ответил petyaGavrikov
0
Пожалуйста.
Новые вопросы
Українська мова,
1 год назад
Алгебра,
7 лет назад
Математика,
7 лет назад
Математика,
8 лет назад
Алгебра,
8 лет назад