Question

Задание: вычислить суммы положительных чисел, введённых с клавиатуры. Конец программы 0. В чем ошибка программа не работает

Answer 1

Ошибка в том, что вводится лишь одно число перед циклом repeat.
Вот исправленная программа:

var
  i, s: integer;
 begin
  writeln('vvedite chisla ');
  repeat
    readln(i);
    if(i>0) then s := s + i;
  until i = 0;
  writeln(s);  
end.

Answer 2

Считает только неправильно