1 уровень - country, family
2 уровень - syster, brother
3 уровень - нет
\family\mother.txt
\family\father.txt
\family\syster\mary.txt
\family\syster\kate.txt
\family\brother\peter.txt
\family\brother\robert.txt
\family\brother\mikle.txt
Var
a, min: integer;
begin
min :=30000;
repeat
readln(a);
if (a mod 3 = 0) and (a < min) and (a <> 0) then
min := a;
until a = 0;
writeln(min);
<span>end.</span>
Выполним несколько первых шагов алгоритма:
2 "7", 82 "4"
4 "7", 78 "4"
Очевидно, что из 86 "4" получим в конце концов 42 "7" и 2 "4"
(42=84/4*2).
Следующий этап:
2 "4", 38 "7", 2 "4"
4 "4", 34 "7", 2 "4"
36 "7", 2 "4"
...
30 "7", 2 "4"
...
6 "7", 2 "4"
2 "4", 2 "7", 2 "4"
Таким образом, из 86 "4" получится строка "447744"
<span>индекс последнего отрицательного элемента
P.S. в Пайтоне списки индексируются с 0, т.е. 0 <= i <= n - 1</span>
var n:integer;
begin
write('n=');
read(n);
if (n>0) then write ('n>0');
if (n<0) then write ('n<0');
if (n=0) then write ('n=0');
end.