ЗАДАЧА НА ЦИКЛ REPEAT!

Question

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

Количество чисел не превышает 100. Введённые числа не превышают 300.

Программа должна вывести среднее арифметическое двузначных чисел или вывести «NO», если таких чисел нет. Значение выводить с точностью до десятых

var 
  a, s, n: integer;
begin
  s:=0; 
  n:=0;
  readln(a);
  while a<>0 do 
  begin
    if (a mod 8 = 0) then
    begin
      s := s + a;
      n := n + 1;
    end;
    readln(a);
  end;
  if n > 0 then 
    writeln(s/n :5:1)
  else 
    writeln(’NO’);
end.

" кто сможет перевести этот цикл в цикл repeat

Answer 1

Условие про двузначные числа было как-то странно реализовано.

  repeat 
    readln(a);
    if (a > 9) and (a < 100) then
    begin
      s := s + a;
      n := n + 1;
    end;
  until a = 0;

БЛОГ НА HUSL

ЗАДАЧА НА ЦИКЛ REPEAT!

Ответы (1 шт):