Ответ нижеотписавшегося неверный, т.к. 2 и 7 соединены должны быть лишь одной дорогой.
Мой ответ 3. Все расчерчено.
Program fff;
var i, n, c : integer;
begin for i := 1 to 15 do begin readln(n); if n mod 10 = 4 then c := c + 1; end; writeln(c);end.
С динамическим массивом:
<em>VAR</em>
<em> i: Integer;</em>
<em> a: Array of Char;</em>
<em>BEGIN</em>
<em> Assign(input, 'input.txt'); ReSet(input);</em>
<em></em>
<em> SetLength(a, 1);</em>
<em> While (not eoln(input)) do begin</em>
<em> SetLength(a, Length(a)+1);</em>
<em> Read(a[Length(a)-1]); End;</em>
<em></em>
<em> For i := 1 to Length(a)-1 do</em>
<em> If (not Odd(i)) then a[i] := '-';</em>
<em></em>
<em> For i := 1 to Length(a)-1 do Write(a[i]);</em>
<em>END.</em>
А)Друзей, грибы
Б)Анкету, ведро
В)Магазин, книгу
Г)Факты, верёвки
Д)Логику, свет
Е)Числа, рубашку
Ж)Горе, объём
З)Удачу, зайца
Адрес клетки это - координаты этой клетки