Запишите на языке Паскаль программу, соответствующую приведённой ниже блок-схеме и определить, что вычисляет данная программа:
var
n,s: integer;
begin
s:=0;
readln(n);
while(n<>0) do
begin
s:=s+n;
readln(n);
end
writeln(s);
end.
Вычисляет сумму входящих слогаемых, если n <> 0.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
