Рассмотрим вариант решения задания из учебника Босова, Аквилянов 8 класс, Просвещение: 2.195. Запишите на языке Паскаль фрагмент программы, соответствующий блок-схеме. Определите значение переменной k после его выполнения при следующих значениях переменной х: 1, 5, -10, 3, -8, 6, 1, 2, -7, 4, 0. Составьте таблицу значений переменных. var k, x: integer; begin k := 0; repeat read(x); if x > 1 then k := k + 1 until x = 0; writeln(k) end.
