Задание: вычислить суммы положительных чисел, введённых с клавиатуры. Конец программы 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 комментария:
Считает только неправильно

Похожие вопросы
Информатика
Помогите , 6 задание...
Информатика
Пожалуйста , помогите 6 и 4 задание...
Информатика
Помогите. Срочно пожалуйста
...
Информатика
Упростить Х=А*(В+!С)+А*!В...