Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
faton63
26.07.2022 18:22 •
Информатика
Написать программу. даны 2 числа a и b. найти среднее арифметическое всех чисел кратных 3 из интервала [a,b].
Показать ответ
Ответ:
mrPool10
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 оценок)
Популярные вопросы: Информатика
bgs6544
26.05.2023 18:18
Петя составил алгоритм, при выполнении которого Робот вернулся в исходное положение. Коля стер одну из команд. При выполнении Колиного алгоритма Робот вернулся в исходное...
Симская
31.12.2021 13:44
Как решить? я не уверен, может есть ошибки...
NikitaPetrov1234
19.04.2020 08:44
Дано: fori:=1to27doi изменяется от... до...с шагом... ...
Ася065
25.12.2021 03:24
Дано трехзначное число. Определить: а) является ли сумма его цифр двузначным числом д) кратна ли сумма его цифр числу а Программа Python...
vovaaan1
05.06.2022 14:28
На Python. В заданном списке строк найдите строчки, в которых есть открывающая и когда-нибудь потом закрывающая скобки....
Кет1235
05.04.2020 14:57
1.Сколько времени потребуется для ввода в память компьютера текста на 44 страницах с сканера и программы ABBYY FineReader, если известно, что на сканирование одной страницы...
Rita210606
24.09.2021 03:04
Дана программа:Program Primer,VarM,result: real;BeginWriteln( Введите значения переменной М );Write( M= );Readln(M);Result := sqr((5+M)*5);Writeln (sqr(5+M)*5), result:8:0);Readln;End.Запусти...
tinapai
25.04.2023 12:40
решить тест по информатике ,...
Gatkek
26.03.2020 23:47
Составить трассировочную таблицу по алгоритму Евклида со значениями M=696, N=234 ...
LizaZay
15.09.2020 23:40
Напишите наименьшее число x, для которого истинно высказывание: НЕ (x 15) И НЕ (x не делится на 7)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.