Информатика Архивный вопрос

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

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

Ответы

Гость

Ошибка в том, что вводится лишь одно число перед циклом 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.

1 комментария:
Считает только неправильно