Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vanuytoa
19.07.2021 08:50 •
Информатика
На паскале. вводятся координаты x, y для n точек. определите, сколько точек в круг радиуса r. сколько точек в кольцо с меньшим радиусом r1, большим r2.
Показать ответ
Ответ:
Dinara260803
24.09.2020 18:59
Var x,y,R,R1,R2,rt:real;i,N,k,m :integer;begin
R:= 15; R1:= 12; R2:=25;write('Введите N'); Read(N);
for i:=1 to N do beginwrite('Введите координаты х и у'); Read(x,y);rt:=sqrt(sqr(x)+ sqr(y));writeln('r =':3,rt:6);
if rt < R then k:= k + 1;
if (rt < R2) and (rt > R1) then m:= m + 1;
end;writeln; writeln('Количество точек в кругу с радиусом R = ',k);writeln('Количество точек в кольце = ',m);end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dedmoros1234567
04.09.2021 22:52
Написать программу Все в файле...
sashkaaaxo
07.06.2023 16:06
Выполните с браузера....
DARKFEST1
30.03.2023 23:56
Вообщем то, сделал калькулятор дробей, но когда я пишу float в Run Он начинает выдавать мне ошибку, не понимаю ничего, больше увидите на картинке, обратите внимание...
322pussy322
21.05.2020 06:27
Где то в поле робота находится прямоугольник, размер прямоугольника неизвестный. Робот из верхнего левого угла должен дойти и остановиться у верхнего угла прямоугольника....
Oliawait
25.06.2021 08:43
С++ Сокращение последовательности Дана последовательность натуральных чисел. Найдите наибольший общий делитель всех элементов последовательности и сократите все её...
evgehamorozov
01.10.2020 16:25
составить программу решения реальной задачи из учебника математики алгоритм линейный + не забывайте общую структуру программы...
taric2004
29.06.2022 22:49
формула из ячейки B1 скопирована в диапазон ячеек B2:B3; формула из ячейки C1 скопирована в диапазон ячеек C2:C3. Чему после этого будут равны значения в ячейках диапазона...
Daniilkv
14.02.2022 16:40
с информатикой. сделаю ответ лучшим! ...
ksenia231106
10.04.2020 18:11
Определение, что такое транспортер(информатика)...
ilyxa24
28.06.2020 11:09
Написати алгоритм (зразок стор. 208) для 4х прапорців – відповідь на питання «Складові комп’ютера» та створення випадаючого списку для зміни кольору, довжини та ширини...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
R:= 15; R1:= 12; R2:=25;write('Введите N'); Read(N);
for i:=1 to N do beginwrite('Введите координаты х и у'); Read(x,y);rt:=sqrt(sqr(x)+ sqr(y));writeln('r =':3,rt:6);
if rt < R then k:= k + 1;
if (rt < R2) and (rt > R1) then m:= m + 1;
end;writeln; writeln('Количество точек в кругу с радиусом R = ',k);writeln('Количество точек в кольце = ',m);end.