Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
HET228
15.05.2020 10:34 •
Информатика
Написать программу. даны 2 числа a и b. найти среднее арифметическое всех чисел кратных 3 из интервала [a,b].
Показать ответ
Ответ:
TheFelixShow
02.10.2020 12:58
var
i, j, a, b: integer;
s: real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
for i := a to b do
if (i mod 3) = 0 then
begin
s := s + i;
inc(j);
end;
s := s / j;
writeln('ответ: ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olga0520
24.05.2023 12:06
Примеры плохой и хорошей инфографики!...
Aleksandrya
05.12.2020 04:44
Паскаль. Решать с применением цикла с постусловием Написать программу паскаль табулирования функции на заданном промежутке с шагом 0.2...
lissasalvatore
14.02.2022 18:05
НЕ СПИСЫВАЙТЕ И НАПИШИТЕ ПОДРОБНО НА ТАБЛИЦЕ Задание 1 ( ). Заполните таблицу, указав, названия программ, которые необходимы людям в приведенных ситуациях....
андаин1998
14.01.2021 18:31
Дана строка аб12сд134е5 .из неё нужно узнать кол-во чисел,которые больше 10 и вывести их.язык программирования: pascal...
1dashagun2
29.08.2021 20:54
Редактор получает на вход строку цифр и преобразовывает её. редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр. заменить (v, w) эта команда заменяет...
mashalin44
06.12.2020 21:14
Все мои друзья после школы посещают разные кружки. семеро из них ходят в кружок, а четверо — художественный. и только двое посещают оба кружка. как вы думаете, сколько у меня друзей?...
Theyom47
02.11.2022 21:14
Массасы 187,52 г көмірді жаққанда(қ.ж) 336л көміртек(валенттілігі 4) оксиді түзілген.көмірдің осы үлгісіндегі көміртектің массалық үлесін(%)табың...
AlexFox144
02.11.2022 21:14
На какие должности в вооружённых силах россии могут претендовать контрактники?...
5555321
02.11.2022 21:14
Будьте добры какой формат не является расширением графических а. raw б. wmw в. wmf г.ai...
TheAlexKillGame
02.11.2022 21:14
Решите уравнение 3x^2+9x=0 и разложить на множители 1) 18xy-6x^2 2) 15a^6-3a^4 3) 4x-4y+cx-cy...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, j, a, b: integer;
s: real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
for i := a to b do
if (i mod 3) = 0 then
begin
s := s + i;
inc(j);
end;
s := s / j;
writeln('ответ: ', s);
end.