Question

ПОМОГИТЕ СРОЧНО РЕШИТЬ

Answer 1

Ответ:

program z1;

var a,s:integer;

begin

s:=0;

repeat

read (a);

s:=s+a

until a=0;

write (s)

end.

Объяснение:

Цикл с постусловием

Ввод числа

Вычисление суммы

Вывод суммы, после окончания цикла