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

Ноль обычно считают только сигналом остановки, поэтому в количество, сумму и среднее он не входит.

Программа Pascal ABC:

var
x, count: integer;
sum: integer;
avg: real;
begin
count := 0;
sum := 0;

repeat
write('Введите число: ');
readln(x);

if x <> 0 then
begin
count := count + 1;
sum := sum + x;
end;

until x = 0;

writeln('Количество чисел: ', count);
writeln('Сумма: ', sum);

if count > 0 then
begin
avg := sum / count;
writeln('Среднее арифметическое: ', avg:0:2);
end
else
writeln('Среднее арифметическое найти нельзя, чисел не было.');
end.

0 0 Пожаловаться