Vari, a: longint;beginread(a);i := 1;while (a mod 10 <> 0) doinc(i);writeln('Чисел в последовательности: ', i);end.
#1
алг
нач
нц пока не слева свободно
закрасить
вниз
кц
вверх
нц пока справа свободно
вправо
закрасить
кц
нц пока не справа свободно
закрасить
вверх
кц
вниз
кон
<span>диван тесто стол кресло, тесто конечно </span>
0)начало
1)посадил дед репку
2)выростил
3)начал ее вытягивать из земли
4)позвал бабку
5)тянут потянут ,вытянуть не могут
5)позвали внучку
6)тянут потянут ,вытянуть не могут
7)позвали Жучку
8)тянут потянут ,вытянуть не могут
9) позвали кошку
10) тянут потянут, вытянуть не могут
11)позвали мышку вытащили
12)конец