Регистрация
gggnnn
07.04.2020 07:58
Информатика
Есть ответ 👍

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

234
434
Посмотреть ответы 2

Ответы на вопрос:

Dima2002dg
Dima2002dg
4,4(26 оценок)

ответ:

объяснение:

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.

DaNike1502
DaNike1502
4,7(47 оценок)
Правильный ответ 3 - на компакт диске.

Популярно: Информатика