Var y, x: integer;
begin
readln(y);
x:=y-2;
writeln(y, '= ', x, '+2');
end.
Так как-то
N=2^8
i=8 бит
<span>I=100*100*8=8000 бит=1000 байт)</span>
729 728 364 182 91 90 45 44 22 21 20 19 18 17
1 1 1 1 1 2 1 2 1 2 2 2 1
Зеленый свет, пошел, посмотрелна лево, дошел до середины, посмотрел на право,
Цикл вида for i:=a to b выполняется b-a+1раз.
В данном случае 4-0+1=5.
<u>Ответ:</u> 5 раз.