Question

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

Answer 1

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

Answer 2

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

Answer 3

а с repeat можно сделать?

Answer 4

Да. Сейчас попробую.

Answer 5

Готово.

Answer 6

спасибо большое