Решить в PASCAL ABC с Repeat... СРОЧНОООО!!!!!!!
Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое.
Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое.
Answers & Comments
Ответ:
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.