Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введённых чисел неизвестно,последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300.

Question

На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел на­хо­дит сред­нее ариф­ме­ти­че­ское чисел, крат­ных 8, или сообщает, что таких чисел нет (выводит «NO»). Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно,последовательность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 – при­знак окон­ча­ния ввода, не вхо­дит в последовательность). Количество чисел не пре­вы­ша­ет 100. Введённые числа не пре­вы­ша­ют 300.

lalmusnd912 · Answer

Uses crt;var      n,s,k: integer;begin          s:=0;          k:=0;          repeat                     readln(n);                     if (n0) and (n mod 8 = 0) then                     begin                               s:=s+n;                               inc(k);                     end;               until n=0;               if (s0) then               writeln(s/k:0:1)          else writeln('NO');end.

Ответы и объяснения 1

Знаете ответ? Поделитесь им!

Есть сомнения?