Question

Решить в PASCAL ABC с Repeat... СРОЧНОООО!!!!!!!
Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое.

Answer 1

Ответ:

var

 a:integer = 1;

 sum:integer = 0;

 count:integer = -1;

begin

 writeln('Введите числа:');

 repeat

   readln(a);

   sum+=a;

   inc(count);

 until a=0;

 writeln('Количество чисел =', count);  

 writeln('Сумма =', sum);  

 writeln('Cреднее арифметическое =', sum/count);  

end.