Фрагмент вида:

k := 1;
while (k < 100)
do k := k + k;
write(k);
выведет значение k, равное:

Ответы

Ответ дал: beenchmark
0
Выведет 128; 1 2 4 8 16 32 64 128
Вас заинтересует