Ответы
Ответ дал:
1
program TT;
var k, x:integer;
begin
k:=0;
repeat
begin
read(x);
if x>1 then k:=k+1;
end;
until x=0;
write(k);
end.
Гурлей:
Значение переменной постоянно меняется, в зависимость от сколько раз ввели х, которое строго больше нуля
скажем, ввели 3 4 2 3 0, это значик 4 раза к k прибавится единица, т.е. k=4, ввели 4 1 0, это значит к k прибавится один раз единица, т.е. k=1 (так как 1 это не больше 1)
если введём сразу 0, цикл сразу завершится, и k=0
Вас заинтересует
2 года назад
2 года назад
2 года назад
8 лет назад