Циклические алгоритмы

Информация, которая может быть записана на любой из дисков и впоследствии считана с него, хранит ся в так называемых папках, или директориях. Что такое папка ? Папкой в операционной системе Microsoft Windows принято называть специальный файловый объект, играющий роль контейнера для хранения других папок или файлов и отображающийся на экране при специального значка, имеющего вид канцелярской папки. В такой папке могут храниться различные документы, например ландшафтный дизайн,

Каждая папка имеет собственное имя, которое может состоять из символов русского или латинского алфавита. Часть имен Windows назначает папкам автоматически: например, папка, в которой хранится сама операционная система, имеет, как правило, имя Windows, папка для хранения программ называется Program Files. Имена папок, которые пользователь создал самостоятельно, можно назначать произвольным образом. Каждая папка может содержать несколько вложенных папок, любая из них в свою очередь тоже может содержать вложенные папки — таким путем создается иерархическая древовидная структура хранения папок на дисках компьютера. Вложенные папки принято называть подпапками, подкаталогами или субдиректориями. При записи имена папок отделяются друг от друга символом «\», поэтому в случае если, например, вы хотите обратиться к подпапке Subfolder, которая вложена в папку My Folders, которая, в свою очередь, хранится внутри папки Мои Документы, строка, объясняющая, как найти эту папку, будет выглядеть следующим образом: «Мои Документы\Му Folders\ Subfolder». Такую запись принято называть полным именем папки, или путем. Собственно, путь и призван объяснить пользователю, какой именно путь он должен проделать по папкам компьютера, чтобы добраться до искомой директории.

Что такое папка самого верхнего уровня, которая хранится непосредственно на любом из дисков? Она носит название корневой папки. Все остальные папки содержатся именно в ней. Корневая папка не имеет собственного имени, она обозначается просто в виде наклонной черты — «\», которая записывается справа от имени диска. Если, например, нам необходимо указать, что пользователь должен обратиться к корневой папке диска D:, то для этого достаточно записать следующее: D:\. Если же нам нужна папка Мои документы, которая хранится в корневой папке диска С:, то запись будет выглядеть следующим образом: «С:\Мои документы».

1.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1*a2 mod 5 = 0
 then writeln('Да') else writeln('Нет');
end.

Пример:
a = 52
Да

2.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1>a2
 then writeln('2*',a1,' = ',2*a1) else writeln('2*',a2,' = ',2*a2);
end.

Пример:
a = 93
2*9 = 18

3.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1 mod 2 = 0 then writeln('3*',a1,' = ',3*a1);
if a2 mod 2 = 0 then writeln('3*',a2,' = ',3*a2);
end.

Пример:
a = 45
3*4 = 12