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.

Answer 2

Конечно, вот программа на языке Pascal ABC, которая решает вашу задачу:

pascalCopy code
program RepeatUntilExample;
var
  number, count, sum: real;
begin
  count := 0;
  sum := 0;

  writeln('Введите числа (для завершения введите 0):');

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

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

  if count > 0 then
  begin
    writeln('Количество чисел: ', count);
    writeln('Сумма чисел: ', sum);
    writeln('Среднее арифметическое: ', sum / count:0:2);
  end
  else
  begin
    writeln('Вы не ввели ни одного числа.');
  end;

  readln;
end.

Эта программа позволяет пользователю вводить числа с клавиатуры до тех пор, пока не будет введен 0. Затем программа выводит количество введенных чисел, их сумму и среднее арифметическое на экране.