artem1514

25.07.2022 13:31

Другие предметы

Есть ответ 👍

Для каждой задачи составить программу, содержащую ветвления и определяющую, принадлежит (X, У) заштрихованной области.

230

237

Посмотреть ответы 15

Ответы на вопрос:

Bonyashechka

Другие предметы

4,7(89 оценок)

Для каждой задачи составить программу, содержащую

Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область') else WriteLn('(',X,',',Y,') - мимо')
End.

hhjufjifklkl

Другие предметы

4,6(88 оценок)

Для каждой задачи составить программу, содержащую

var x,y:real;
begin
 writeln('(x, y)');
 readln(x, y);
 if ((x*x+y*y<=25)and(y>0)and(x>0)) or
 ((abs(x)+abs(y)<=5)and(x<0)) then writeln('Принадлежит')
 else writeln('Не принадлежит');
 readln
end.

Вуди228

Другие предметы

4,5(69 оценок)

Для каждой задачи составить программу, содержащую

var

x,y:integer;

begin

read(x,y);

if (y<=abs(x-3)) and (y>=0) and (sqr(x)+sqr(y)<=36)

then write ('Да');

else write ('Нет);

end.

Яркf

Другие предметы

4,7(59 оценок)

Для каждой задачи составить программу, содержащую

begin

var (x, y) := ReadReal2('Введите координаты точки:');

Print((x ** 2 + y ** 2).Between(16, 36) and (y >= 2) ? 'YES' : 'NO')

end.

abcdefgh

Другие предметы

4,8(38 оценок)

Для каждой задачи составить программу, содержащую

Var x,y: real;
Begin
readln (x,y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5) then writeln('YES')
else writeln('NO')
End.

matveevaalina17

Другие предметы

4,4(35 оценок)

Для каждой задачи составить программу, содержащую

Var x,y: real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*y>=0)and(y<=-x+6)and(y>=-x-6)
then writeln('Да')
else writeln('Нет');
end.

anavidyan920

Другие предметы

4,5(38 оценок)

Для каждой задачи составить программу, содержащую

Var x,y: real;
begin
write('x y через пробел: '); readln(x,y);
if ((-6<=x) and (x<=1) and (-3<=y) and (y<=7)) and not ((-3 writeln('точка принадлежит области')
else writeln('точка не принадлежит области');
end.

mlgcuca

Другие предметы

4,7(57 оценок)

Для каждой задачи составить программу, содержащую

var
x, y: real;

begin
writeln('Введите координаты точки x и y соответственно:');
readln(x, y);
if (x <= 0) or (y <= 0) then if x * x + y * y <= 36 then writeln('Принадлежит')
else
writeln('Не принадлежит')
else
writeln('Не принадлежит')
end.

rustam141

Другие предметы

4,7(80 оценок)

Для каждой задачи составить программу, содержащую

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=2)and(y<=5)and(x>=-2)and(x<=3)or (y>=2)and(y<=3)and(x>=3)and(x<=5) then writeln('Да')
else writeln('Нет')
end.

vika2320041

Другие предметы

4,8(1 оценок)

Для каждой задачи составить программу, содержащую

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=2)
then writeln('Да')
else writeln('Нет')
end.

aidosashimbek200

Другие предметы

4,8(82 оценок)

Для каждой задачи составить программу, содержащую

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=0)and((x*x+y*y<=4*4)and(y>=0)or(x*x+y*y<=5*5)and(y<=0)) then writeln('Да')
else writeln('Нет')
end.

kz666zlo1

Другие предметы

4,4(18 оценок)

Для каждой задачи составить программу, содержащую

begin
var x:=readreal ('Введите x-координату точки: ');
var y:=readreal ('Введите y-координату точки: ');
if ((x>=-5) and (x<=-2) and (y>=-2) and (y<=5)) or ((x>=-5) and (x<=5) and (y>=-2) and (y<=1)) or ((x>=2) and (x<=5) and (y>=-6) and (y<=1)) then write ('принадлежит') else write ('не принадлежит');
end.

sereja2002g

Другие предметы

4,5(33 оценок)

Для каждой задачи составить программу, содержащую

Var x, y: real;
begin
read(x, y);
if (x >= -4) and (x <= -1) then if (y >= 1) and (y <= 7) then writeln('Yes')
else
writeln('No')
else if (x >= -1) and (x <= 3) then if (y >= 4) and (y <= 7) then writeln('Yes')
else
writeln('No')
else
writeln('No')
end.

MrЕвгений228

Другие предметы

4,4(39 оценок)

Для каждой задачи составить программу, содержащую

Uses crt;
var x,y:integer;
begin
readln(x,y);
if (y<=7) and (y>=1) and (y<=(2*x+13)) and (y<=(-2*x+15)) then writeln('yes')
else writeln('no');
end.

RonnieHolmes

Другие предметы

4,7(24 оценок)

спс зайка,лублу таких

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Другие предметы

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.