Question

Заранее спасибо (PASCAL) Составьте программу, в которой осуществляется ввод целых двузначных чисел до тех пор, пока их сумма не превысит 1000, подсчитывается и выводится их количество и среднее арифметическое.

Answer 1

// PascalABC.NET

begin

 var (k, s) := (0, 0);

 repeat

   var n := ReadInteger;

   k += 1;

   s += n

 until s > 1000;

 Print('Количество', k, 'среднее', s/k)  

end.

Answer 2

Конечно, вот пример программы на Pascal, который реализует описанное вами поведение:

pascalCopy code
program TwoDigitNumbers;
var
  num, sum, count: integer;
  average: real;
begin
  sum := 0;
  count := 0;
  
  writeln('Введите целые двузначные числа. Для завершения введите число, чтобы сумма превысила 1000.');
  
  repeat
    write('Введите число: ');
    readln(num);
    
    if (num >= 10) and (num <= 99) then
    begin
      sum := sum + num;
      count := count + 1;
    end
    else
      writeln('Введенное число не является двузначным.');
  until sum > 1000;
  
  if count > 0 then
  begin
    average := sum / count;
    writeln('Количество введенных чисел: ', count);
    writeln('Среднее арифметическое: ', average:0:2);
  end
  else
    writeln('Не было введено двузначных чисел.');
end.

Скопируйте этот код в среду разработки Pascal и запустите его. Программа будет ждать ввода двузначных чисел до тех пор, пока сумма введенных чисел не превысит 1000. Затем она выведет количество введенных чисел и их среднее арифметическое.