Ответы на вопрос:
Var s,n,k: integer; begin writeln('введите натуральные числа, 0 - окончание ввода'); k: =0; s: =0; repeat read(n); if n< > 0 then if n mod 10 = 8 then begin k: =k+1; s: =s+n end until n=0; if k> 0 then writeln(s/k: 0: 4) else writeln(0) end. пример введите натуральные числа, 0 - окончание ввода 34 17 8 32 1424 28 7 0 18.0000
Популярно: Информатика
-
cat070820041621.10.2022 15:17
-
TIGER19710.08.2020 11:01
-
garvarrd21.01.2023 04:59
-
Chernaya405.12.2022 18:03
-
салссо123296007.01.2020 14:32
-
ivantitov200205.06.2021 22:27
-
lisaezhikova14.02.2021 09:01
-
doblezor11.01.2023 04:55
-
TFestFlyMan20.06.2020 04:21
-
ак14705.03.2022 01:28