1. Подошёл к переходу
2. Если красный свет то стоишь и ждёшь зелёного
3. При зелёном свете смотришь по сторонам, если нет машин, то идёшь.
4. Доходя до середины ещё раз осмотрись
5. Если всё чисто, продолжай путь
Это событие нажатия на кнопку, которая находится на Form1.
Var
x, y, q, r: integer;
begin
read(x,y);
r := x;
q := 0;
while r >= y do
begin
r := r - y;
q := q + 1
end;
write(q,' ',r)
<span> end.</span>
Проект не являлся изначально коммерческим, его создали в качестве дипломного проекта. Проще говоря, он относится к свободной разработке.
450 = <span>111000010 </span>
0000000111000010 - прямой
1111111000111101 - обратный
+1
1111111000111110 - дополнительный
з.ы числа написаны в 2битной сетке (если нужно убери первые нули)