Question

Запишите на языке Паскаль программу, соответствующую приведённой ниже блок-схеме и определить, что вычисляет данная программа:

Answer 1

var  S, N: integer;
begin 
read(n); 
S := 0; 
while n <> 0 do  
begin 
S := S + n; 
read (n); 
end; 
write(S);
end.

Считает сумму n.