Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ane4ka258000
20.02.2022 20:06 •
Информатика
Нужно решeние на paskal abc из интервала [a,b] найти среднее арифметическое тех чисел, при делении которых на m в остатке остается n.
Показать ответ
Ответ:
ress123
07.10.2020 14:51
var a,b,m,n,s,k,i:integer;
begin
readln(a,b,m,n);
s:=0; k:=0;
for i:=a to b do
if i mod m=n then
begin s:=s+i; k:=k+1; end;
if k>0 then writeln('среднее арифметическое=',s/k:5:2)
else writeln('требуемых чисел в данном диапазоне нет');
end.
Пример:
10 80 7 2
среднее арифметическое=47.50
0,0
(0 оценок)
Популярные вопросы: Информатика
Тане44ка
02.01.2020 19:55
Составьте программу, заменяющую меньшее из двух данных чисел их суммой, а большее - удвоенным произведением этих чисел....
svetaH666
12.08.2021 11:08
Мне надо. шестикласникам классный руководитель предложил посетить музей кошек и зоопарк. музей кошек посетило 22 учащихся 6-ого класса а зоопарк 26. всего в классе...
avetisyana902
14.01.2023 23:38
Дано число 1,7028e-22 . нормализованная запись данного числа: число ⋅ число число....
AsyaFilipova
29.03.2022 14:23
Построить графики функций y1=x^2-1, y2=x^2+1 и y=k*(y1/y2) на интервале [-3; 3 ] с шагом 0,3 в excel , если можно прикрепите документ . заранее ....
kublahan
08.01.2021 17:31
D3. фанатам стратегий 3 (5 ) данный шаг отличается от предыдущего формулировкой ограничений на входные данные и примером. перед проверкой решения с формулировкой ограничений...
karinarigova2
29.05.2023 05:50
Определить подлежащие и сказуемое в кино было много народу....
Профессионал228
29.05.2023 05:50
Каким вы оцениваете действия католической церкви в период контрреформации ? какое значение для укрепления катользма во второй половине 16 века имела деятельность игнатия...
умница111133
29.05.2023 05:50
Какой можно придумать смешной стишок про имя саша...
Эплик1
29.05.2023 05:50
Слова глас и голос братья потому что...
ivankasranka2
29.05.2023 05:50
Напишите 1 приложение простое 1 сложное...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a,b,m,n);
s:=0; k:=0;
for i:=a to b do
if i mod m=n then
begin s:=s+i; k:=k+1; end;
if k>0 then writeln('среднее арифметическое=',s/k:5:2)
else writeln('требуемых чисел в данном диапазоне нет');
end.
Пример:
10 80 7 2
среднее арифметическое=47.50