Начало: D:\ДОКУМЕНТЫ\ФОТО\2011\ВЕСНА
После поднятия на 3 уровня вверх: D:\ДОКУМЕНТЫ\
После спуска в ИНФОРМАТИКА: <span>D:\ДОКУМЕНТЫ\ЭКЗАМЕН\ИНФОРМАТИКА
Ответ: 3</span>
С кругами эйлера не уверена. давно их не делали
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
ч, y: ЦЕЛ;
УКАЗ
ч := Приём.Число();
y := (ч ДЕЛИТЬ 100 ОСТАТОК 10) * 1000 +
(ч ДЕЛИТЬ 1000) * 100 +
(ч ОСТАТОК 10) * 10 +
(ч ДЕЛИТЬ 10 ОСТАТОК 10);
Вывод.ЧЦел("^%d", y, 0, 0, 0)
КОН Задание.