Question

PASCAL! Дана последовательность целых чисел признак окончаний которой 0.Найдите сумму всех элементов последовательности.

Answer 1

//Блок-схема во вложении.
var
 a,s:integer;
begin;
a:=1;
repeat
 readln(a);
 s:=s+a;
until a=0;
write(s);
end.

Answer 2

Подробное решение, а точнее программа внутри файла