Ответы
Ответ дал:
2
Ответ:
program z1;
var a,s:integer;
begin
s:=0;
repeat
read (a);
s:=s+a
until a=0;
write (s)
end.
Объяснение:
Цикл с постусловием
Ввод числа
Вычисление суммы
Вывод суммы, после окончания цикла
winterananas007:
некорректно работает
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад