Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Себастиаан
30.05.2023 06:20 •
Информатика
Напишите программу которая в последовательности целых чисел определяет среднее арифметическое положительных чисел кратных 8
Показать ответ
Ответ:
nikbayy
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 оценок)
Популярные вопросы: Информатика
pyankova06
18.04.2022 03:59
1.дано трехзначное число найти разность между количеством единиц и тысяч данного числа. 2. дано трехзначное число. найти произведение сотен и десятков данного числа. 3. из...
panicheviwan
11.11.2021 20:52
(10 класс информатика, семакин)придумайте какие-нибудь новые формы представления алгоритмов, кроме тех, что описаны в параграфе. ...
ffff40
18.02.2022 05:56
Уисполнителя омега две команды, которым присвоены номера: 1. прибавь 2; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). выполняя первую из них, омега увеличивает...
kav2003
09.07.2021 01:48
1) разработать программу согласно блок схеме 2)разработать программу «контроль веса», которая вычисляет оптимальный вес и, в зависимости от результата, выводит сообщения:...
petrchisp0abir
30.04.2021 20:54
Исполнитель шифровальщик из одной цепочки символов получает новую цепочку следующим образом: если цепочка начинается с гласной буквы, шифровальщик меняет местами первую и...
aidanmoretti
22.12.2022 20:49
Program tyo; var a: array of array of integer; p: array of integer; i, j,t,cnt,l,u, sum, w: integer; m,n,k : integer; begin read (m); read (n); read (k); setlength (p, m+1);...
nemkovvlad1
27.04.2021 19:08
Исполнитель шифровальщик из одной цепочки символов получает новую цепочку следующим образом: если цепочка начинается с гласной буквы, шифровальщик переставляет первую букву...
fake23
01.11.2022 20:34
Исполнитель шифровальщик из одной цепочки символов получает новую цепочку следующим образом: если длина цепочки - нечётное число, шифровальщик удваивает центральную букву,...
skarpion83
21.06.2021 23:57
Определите значение переменной a после выполнения данного алгоритма: a = 4; b = 6; b = 8 + a * b; a = b / 4 * a. в ответе укажите одно целое число – значение переменной a....
Danfdffefd
27.10.2022 19:28
Определите значение переменной а после выполнения данного алгоритма: a = 3; b = 6; b = 12 + a * b; a = b / 5 * a. в ответе укажите одно целое число – значение переменной...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.