Ну если я ничего не путаю то решается это так берёшь лист тетради в клетку ставишь точку она будет нулевой (тип система отсчёта) теперь выполняем алгоритм из точки (0,0) мы оказались в точке (1,1) при этом мы путь до этой точке не чертили так как это не написано в программе теперь начинается цикл в котором мы уже будем чертить путь передвижения так как у нас это заданно в программе
и если я ничего не напутал получаем такой рисунок
Получается что у каждого острова должно быть по 4 моста. Сначала
соединяем каждый с соседним (если например расставить их по кругу), а
потом через одного. Получается двойной обход
Потому 30*2 = 60
Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>
Ответ: 5
Выполняем построчно:
1)
a = 30
2)
a = 30
b = 6
3)
a = 8
b = 6
4)
Заходим в первый цикл
a = 8
b = 6
c = 8 - 30 + 27 = 5
Var a,b:integer;
begin;
readln(a);
readln(b);
if a>b then write('Первое');
if a<b then write('Второе');
if a=b then write('=');
<span>end.</span>