Убери (или закомментируй) строку textattr:=1; после <span>REPEAT
Чтобы были 0 и 1 замени фрагмент
</span>for I:=1 to N do
begin
<span>d:=random(3);
gotoxy(x,y);
</span> if d<2 then write(d) else write(' ');
на моей машине работает очень быстро. Чтобы замедлить, увеличь число 128 (я ставил 12800) в строке
while r<=128 do
Word Pad,Microsoft Word,блокнот.
44
У нас есть цикл, который звучит как (пока s<=250). Изначально s=15. После мы запускаем данный цикл, и в каждом шагу добавляем 12 до тех пор, пока s не станет больше 250. И во время каждого шага мы к переменной n (изначальна равна 4) прибавляем 2. В конце программы мы выводим n.
Надеюсь я понятно объяснил. Если что-то не понятно - спрашивайте.