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

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.

Comments

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