1. Информатика
  2. написать программу по информатике

написать программу по информатике , которая вводит координаты точки x,y


написать программу по информатике , которая вводит координаты точки x,y

geralis728p0bgjl geralis728p0bgjl    3   18.01.2021 09:39    10

Ответы
Даша1444444 Даша1444444  18.01.2021 09:40

var x,y:real;

begin

    readln(x, y);

    if (x>=0) and (y<=1)

    and (x*x + y*y <= 1)

    and (y >= x-1) then

        write('принадлежит')

    else write('не принадлежит');

end.

Объяснение:

Надеюсь

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mandish02 mandish02  27.01.2021 09:55
АУЫСУЛАР БАТЫРМАСының қызМЕТІ ҚАНДАЙ?​...
GDIZzzEr GDIZzzEr  27.01.2021 09:59
Нақты саң сандық типте қалай аталады?...
nik896 nik896  27.01.2021 09:59
Что из перечисленного является схемой? план зрительного зала кинотеатрагеографическая карта страныКарта метро​...
Ангелинка02052003 Ангелинка02052003  27.01.2021 09:59
Формулу Y = (4e ^ (- 2x) + 3cos sqrt(t))/(root(3, ln^2 (x ^ 3))) написать в виде формулы понятной электронно-вычислительной технике (ЭВТ).​...
Ediнорог Ediнорог  27.01.2021 09:59
Система счисления, в которой каждая цифра обозначает количество значений, которые равны шестнадцати в некоторой степени, называется Система счисления, в которой есть только...
marsimkozyrev marsimkozyrev  16.09.2019 18:50
1статья набранная на компьютере содержит 32 страницы на каждой странице 40 строк в каждой строке 64 символа определите размер статьи в кодировке кои-8 в который каждый символ...
Chelovek987654321 Chelovek987654321  23.04.2020 14:26
1.что вы понимаете под обработкой рисунка?2.с каких приемов можно открыть рисунки в Paint?3.какие ещё действия стрисунком можно произвести в меню Правка?​...
янакуницкая2017 янакуницкая2017  23.04.2020 14:26
С трех участков собрали Х тонн помидор. С первого участка собрали Y кг, а со второго в 3 раза меньше чем с первого. Вывести на экран: 1. Сколько помидор собрали с третьего...
Васяян Васяян  23.04.2020 14:26
Program risunok; var N:byte; procedure kvadrat_iz_zvezd(N:byte); var k,i:byte; begin for k:=1 to N do begin for i:=1 to N-1 do begin write( * ); end; writeln( * ); end; end;...
alinkaaa888 alinkaaa888  24.09.2019 18:11
Выбери любой объект, рассмотри его, назови его имя,назначение,форму, цвет,размер,действия отношения....

Популярные вопросы