Решить в PASCAL ABC с Repeat... СРОЧНОООО!!!!!!!
Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое.
Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое.
More Questions From This User See All
Answers & Comments
Ответ:
var
a:integer = 1;
sum:integer = 0;
count:integer = -1;
begin
println('Введите числа:');
repeat
readln(a);
sum+=a;
inc(count);
until a=0;
println('Количество чисел =', count);
println('Сумма =', sum);
println('Cреднее арифметическое =', sum/count);
end.