Упр.2.195 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)

Составьте таблицу значений переменных.
var
k, x: integer;
begin
k := 0;
repeat
read(x);
if x > 1 then k := k + 1
until x = 0;
writeln(k)
end.

По блок-схеме сначала переменной $$k$$ присваивается значение $$0$$. Затем последовательно вводятся значения $$x$$. Если $$x > 1$$, то $$k$$ увеличивается на $$1$$. Цикл повторяется, пока не будет введено $$x = 0$$.

var
k, x: integer;
begin
k := 0;
repeat
read(x);
if x > 1 then k := k + 1
until x = 0;
writeln(k)
end.

Проверим значения переменной $$k$$ для последовательности $$1, 5, -10, 3, -8, 6, 1, 2, -7, 4, 0$$:

Ответ

$$k = 5$$.