Вычисление суммы положительных чисел, введенных с клавиатуры — Pascal(Паскаль)

program summrep;
var
     numb:integer;     { число, введенное с клавиатуры }
     summ:integer;     { сумма введенных чисел }
begin
     writeln('Вычисление суммы положительных целых чисел.');
     summ:=0;
     repeat
          write('->');
          readln(numb);
          if numb>0 then summ:=summ+numb;
     until numb <= 0;
     writeln('Сумма введенных чисел: ',summ);
end.

Leave a Comment