Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kolisnyk98
12.01.2021 01:33 •
Информатика
Напишите программу которая в последовательности целых чисел определяет среднее арифметическое положительных чисел кратных 8
Показать ответ
Ответ:
Horsik1Konnik
05.07.2020 13:24
Var
d: integer;
n := 0;
s := 0;
begin
repeat
readln(d);
if (d > 0) and (d mod 8 = 0) then begin
s := s + d;
n := n + 1;
end
until d = 0;
writeln('Avg = ',s / n)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
eva301
26.02.2020 00:05
Перечислите все системы счисления в порядке возрастания ,в которых не существует числа 163....
propprap
23.10.2022 11:19
Напишите соотношение: 1)кбит/с к бит/с 2)мбит/с к бит/с 3)гбит/с к бит/с...
НикитаГоровой
17.06.2022 02:47
Программа паскаль. тема массив. что значит n: =0; ?...
Соня11647
27.07.2020 08:05
Даны три натуральных числа. напишите программу, определяющую, существует ли треугольник с такими длинами сторон,а если и существует найдите периметр....
juliyamacko99
09.05.2023 01:22
Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла , а вывод – (в скобках указана размерность массива): заменить все...
Esenbekmalika30
05.11.2021 07:45
с решение хотя бы с 2 и 3 пунктом хотябы с 2...
dron1131
09.09.2021 06:53
Что можно отнести к достоинствам векторной графики по сравнению с растровой?...
Nastyushan2018
28.03.2020 03:37
Дан массив символов, образующий несколько слов. Вывести на экран слово с максимальным количеством гласных букв. Основной код я сделал и он правильный, осталось только найти...
ruslana0404
02.02.2020 20:23
Установите соответствие между страной и доменом верхнего уровня: * Россия; Италия; Украина; Германия; Великобритания; Япония; Канада. ca; de; jp; ru; it; uk; ua. ca; de;...
Frikkkkkkkk
05.11.2022 08:26
Нысандар мен оқиғаларға қалай анимация құрамыз...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
d: integer;
n := 0;
s := 0;
begin
repeat
readln(d);
if (d > 0) and (d mod 8 = 0) then begin
s := s + d;
n := n + 1;
end
until d = 0;
writeln('Avg = ',s / n)
end.