Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
liliyazaleeva12
17.03.2021 22:18 •
Информатика
Нужно решeние на paskal abc из интервала [a,b] найти среднее арифметическое тех чисел, при делении которых на m в остатке остается n.
Показать ответ
Ответ:
IDONTNONOTHING
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 оценок)
Популярные вопросы: Информатика
malygin73rus
22.10.2020 21:20
Файл размером 4096 байт передаётся через некоторое соединение за 8 секунд. определите время в секундах, за которое можно передать через то же самое соединение файл размером 8...
Загадака
22.10.2020 21:20
Где хранится и обрабатывается в данный момент программа и обрабатываемые ею данные...
xokkey1
02.01.2022 18:57
Ввели 2 числа ,выясните,вычесляется ли на цело квадратный корень из их суммы ответы...
elnur4ik2002
15.11.2020 01:17
Составьте таблицы истинности для следующих функций: ā = в в & (а v в) в & (ā v в) (ā = в) v (с & в)...
lisasmirnova1
09.08.2020 16:51
Разгадайте загадку! у осла 2,у коровы 2 . сколько же у кота?...
Поняха74
04.01.2023 03:38
Информатика) : ) 8 класс, тема свойства логических операций f=0 x y(над y чёрточка) стрелочка f=x стрелочка y пришлось так написать, тк фотка не грузит, а по другому никак. надеюсь...
filyanarasulov
28.02.2020 00:27
1)файл размером 6 мбайт передаётся через некоторое соединение за 2 минуты 30 секунд. определите размер файла (в мбайтах), который можно передать через это же соединение за 50...
gwo
28.02.2020 00:27
Сколько клавиш, которые действуют только при нажатии совместно с другими клавишами? сколько индикаторов, которые указывают на выбранный режим работы...
31101960
24.02.2022 09:09
Запишите полный путь к файлу в «интернет» иерархической файловой системе:...
armen6204
07.05.2023 11:12
Cохраните в форматe png исходный рисунок (24-разрядный в формате bmp) . определите размер рисунка в кбайтах и занесите результат в таблицу. введите размер рисунка в кбайтах (округлив...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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