20.2 (№ 987) напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «no»). программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое чисел, кратных 8, или вывести «no», если таких чисел нет. значение выводить с точностью до десятых. пример работы программы:
102
185
Ответы на вопрос:
Program n1; var sum,k,a: integer; begin readln(a); sum: =0; k: =0; while a< > 0 do begin if a mod 8=0 then begin k: =k+1; sum: =sum+a; end; readln(a); end; if k=0 then write('no') else write(sum/k: 0: 1); end.
хреново будет .. дождь будет, торнадо
Объяснение:
3 вариант потому что 5 по географии
Популярно: Информатика
-
ладнобудеттакойник09.03.2021 16:29
-
NancyKorea22.09.2021 15:17
-
rollinz1422.10.2021 20:45
-
tatsawi25.01.2021 08:55
-
voznas16.08.2022 22:35
-
xXNASTYXx30.06.2021 09:47
-
DashaPol0924.11.2021 15:42
-
satanbeat17.04.2022 20:03
-
gussamovadel21.12.2021 02:46
-
Антон1111111111207.09.2021 16:04