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

1

Ответы и объяснения

Лучший Ответ!
2012-04-20T10:16:34+04:00

var n,s : integer;

begin

readln(n);

if n <> 0 then

   begin

      s:=s+n;

      readln(n); 

   end

else writeln(s);

readln; 

end.
это программа позволяет найти сумму вводимых чисел, но если ввести ноль, то числа перестанут  запрашиваться и на экран выведеться сумма чисел, вводимых до ноля.