Question

Язык паскаль, можно через while Написать программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор пока не будет введён ноль) и подсчёт суммы введённых положительных чисел. Используйте оператор repeat

Answer 1

Ответ:

Объяснение:

Pascal

var a,i,s,n:integer;

begin

 s:=0;

 n:=0;

 repeat

    readln(a);

    if a>0 then begin

       n:=n+1;

       s:=s+a;

    end;

 until a = 0;

 writeln('Сумма ',s:5,'  Среднее арифметическое ',s/n);

end.

Answer 2

Конечно, можно написать программу на языке Паскаль с использованием оператора repeat для подсчета суммы введенных положительных чисел. Вот пример кода:

pascalCopy code
program SumPositiveNumbers;

var
  number, sum: integer;

begin
  sum := 0;
  writeln('Введите целые числа. Вводите числа до тех пор, пока не будет введен ноль.');

  repeat
    write('Введите число: ');
    readln(number);
    if number > 0 then
      sum := sum + number;
  until number = 0;

  writeln('Сумма положительных чисел: ', sum);
end.

Эта программа будет запрашивать ввод целых чисел до тех пор, пока не будет введен ноль. Все положительные числа будут добавлены к переменной sum, которая в конце программы выведет сумму положительных чисел на экран.