Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ДимаПохитун
12.07.2022 03:26 •
Информатика
На паскале. вводятся координаты x, y для n точек. определите, сколько точек в круг радиуса r. сколько точек в кольцо с меньшим радиусом r1, большим r2.
Показать ответ
Ответ:
nasik134
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 оценок)
Популярные вопросы: Информатика
kosmagalaxy
08.11.2020 21:14
В далёкой-далёкой галактике… есть планета, на которой летоисчисление ведётся следующим образом: · год состоит из $$n$$ месяцев; · каждый месяц состоит из $$28$$ дней; · неделя состоит...
каринка1906
10.01.2020 09:35
Напишите программу в Питоне, принимающую на вход размер файла обновления в мегабайтах и скорость интернет соединения в мегабайтах в секунду. Для каждой секунды программа рассчитывает...
alinkaaa25
13.10.2022 20:20
Дана величина: скорость автомобиля.Данная величина является постоянной или переменной.? ...
злата197
01.12.2021 00:38
. Выберите истинные утверждения о значении митоза и мейоза в жизнедеятельности живых организмов.1. Если материнская клетка содержит 24 хромосом, то при мейозе дочерние клетки получают...
skladnova03
02.07.2020 03:57
Выполнить задачу: Дан одномерный массив из N чисел, заполненных случайно в диапазоне от 0 до 50 (рандомно). Найти сумму и произведение этих чисел....
avon300817
28.04.2023 14:19
2. Чим відрізняється внутрішній цикл від зовнішнього...
IbraevaLisa
07.03.2020 04:40
Преимущества и недостатки растровой и векторной графики...
anfisakadnikova
07.05.2020 18:21
1/ алфавит источника сообщений {а,б,в}. источник сообщений посылает нам слова. а) сколько трит информации содержится в слове «», полученном из источника сообщений? б) сколько трит...
Эля6979
23.06.2020 20:01
Запись числа nn в некоторой позиционной системе счисления выглядит следующим образом: 555_x555 x нужна ваша...
maks200310y6
25.11.2022 14:24
1)Как называются переменные, объявленные в теле подпрограммы-функции? 2)Что представляет собой R, полученное в результате выполнения алгоритма (R = 1: N = 10: i = 2: пока i = N: если...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.