var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
Оттуда:
Сложение двух чисел тривиально — достаточно поставить 1 между ними и стереть крайний правый символ у Q. Программа вычитания состоит из последовательного затирания крайних левых меток у Q и правых у P:
1. 0 - стираем левый символ у Q
2. →
3. ? 5, 4
4. Stop - стоп если затерли Q=0
5. ←
6. ? 7, 5 - цикл поиска P
7. 0 - стираем правый символ у P
8. →
9. ? 1, 8 - ищем Q
Отметим, что номер команды перехода не указывается, если переход происходит на следующую по порядку строку (для наглядности текста) . В 6-ой строке возможно зацикливание, если Q > P (вы можете добавить проверку сами)
<span>****только вам нужно сдвинуться в начало строки и учесть пустую клетку-т. е. еще один проскок каретки</span>
Ответ:
Граф под номером 2
Объяснение:
Из пункта В есть 4 пути.
Рассмотрим графы по очереди:
1) на первом графе из пункта В 4 пути, он может нам подойти;
2) на втором графе из пункта В 4 пути, он может нам подойти;
3) на третьем графе из пункта В 3 пути, он не может нам подойти;
4) на четвертом графе из пункта В 3 пути, он не может нам подойти.
В дальнейшем будем рассматривать только 1 и 2 графы, так как 3 и 4 нам уже не подходят.
Из пункта Е есть 3 пути.
Рассмотрим графы по очереди:
1) на первом графе из пункта Е 2 пути, он не может нам подойти;
2) на втором графе из пункта Е 3 пути, он может нам подойти.
В дальнейшем будем рассматривать только 2 граф, так как 1, 3 и 4 нам уже не подходят.
Проверим соответствуют ли расстояния между пунктами указанным в таблице. Расстояния соответствуют.