20.2 ( 987) Напишите программку, которая в последовательности естественных чисел находит

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

Задать свой вопрос
1 ответ
Program n1;
var sum,k,a: integer;
begin
readln(a);
sum:=0;
k:=0;
while alt;gt;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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт