Упр.194 ГДЗ Рабочая тетрадь Босова 8 класс 2016 (Информатика)

program DD;
var
s, x: integer;
begin
s := 0;
repeat
read(x);
s := s + x
until x = 0;
write(s)
end.
s x x=0
0 — —
1 1 нет
6 5 нет
-4 -10 нет
-1 3 нет
-9 -8 нет
-3 6 нет
1 4 нет
1 0 да

Переведём алгоритм на язык Паскаль:

program DD;
var
  s, x: integer;
begin
  s := 0;
  repeat
    read(x);
    s := s + x
  until x = 0;
  write(s)
end.

Вычислим значение переменной $$s$$ по шагам:

После ввода нуля цикл заканчивается, и на экран выводится текущее значение $$s$$.

Ответ

1