Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите! Решите задачи! Хоть одну из 2! Пожалуйста)) Только напишите номер задачи, который решили. А то я в этом ничего не понимаю((

Ответ оставил Гость

Var S, a:integer;

begin
S:=0;
repeat
   readLn(a);
   S:=S+a;
until a=0;
ReadLn;
end.