Напишите программу, которая в последовательности целых чисел находит среднее арифметическое чисел, кратных 9, или сообщает, что таких чисел нет. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). количество чисел не превышает 100. введённые числа по модулю не превышают 300. программа должна вывести среднее арифметическое чисел, кратных 9, или вывести no, если таких чисел в последовательности нет.
mr20171
3
19.05.2019 23:00
13
Другие вопросы по теме Информатика
сказкамоямечта
10.06.2020 15:13
Pyli03032004
11.06.2020 15:11
Mellisa11111111
11.06.2020 15:10
dddimkaplay
10.06.2020 15:08
nbolshakova1
10.06.2020 15:06
Anya18121978
13.04.2020 20:00
zzz26101973
13.04.2020 19:59
полина1843
13.04.2020 19:59
RCloke
06.10.2019 06:10
Популярные вопросы
- С примером (отрицательные положительные числа и подобное) -7-4+5+4= -6+1,2-4-0,2=...
3 - Вычислил : а) периметр треугольника ; б) и площадь прямоугольника....
2 - Какова иерархия применения стилей к абзацу?...
2 - Розбір слова міцно як частину мови у реченні: З ранку до вечора жала біль колосків...
2 - На 9 подносах по 6 плодов:яблоки и груши. Сколько груш, если яблок на подносах 35...
2 - 911. 1) Жайық өзенінің Қазақстан Республикасының аумағы арқылы өтетін ұзындығы 1081,8...
1 - Решите задачу!:)На 3 последних во не отвечать. Только 3 действия...
1 - Место и роль России в Средней Азии 1856 году...
3 - Почему библейские образы занимают в новелле Дары волхвов большое место...
3 - 1. Постройте график функции y=x^2-4x+3. Опишите свойства2. Найдите значение функции...
3
var
a, i, count, s: integer;
begin
repeat
if(i = 100) then break;
readln(a);
if(abs(a) > 300) then begin
writeln('Число по модулю не может быть > 300.');
continue
end
else if(a mod 9 = 0) and (a <> 0) then begin
inc(count);
s := s + a;
end;
if(a <> 0) then inc(i);
until(a = 0);
writeln('Среднее арифметическое: ', s / count);
end.