Регистрация
маркинала
22.02.2021 09:16
Информатика
Есть ответ 👍

Умоляю, ! напишите программу, которая в последовательности натуральных чисел определяет среднее арифметическое всех чисел, кратных 2 и оканчивающихся на 8. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число: среднее арифметическое всех чисел, кратных 2 и оканчивающихся на 8.

300
500
Посмотреть ответы 2

Ответы на вопрос:

Laki333
Laki333
4,7(73 оценок)
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
Caxap03
Caxap03
4,8(8 оценок)

1. Ядро системы

2. Структура файловой системы и диски

3. Хранение конфигурации и данных

4. Управление пользователями и права

5. Управление программами и обновление

Популярно: Информатика