Вопрос по информатике. Являются ли функции тождественными? с объяснением если можно">

Объяснение:

1д ж о й с т и 3к  6т          

      л  р  8н        

     5к а м е р а    9м ы ш ь

      в  к  у    о    

2к о л о н к и  б  ш    н    

      а  о  н  11п  и    

4п л а н ш е т  л  и  л  т    

      у    к  о  о    

 7с к а н е р  10п р и н т е р    

      а      т      

            е      

         12м и к р о ф о н  

По горизонтали: По вертикали:

1. джойстик

2. колонки

4. планшет

5. камера

7. сканер

9. мышь

10. принтер

12. микрофон 3. клавиатура

6. трекбол

8. наушники

9. монитор

11. плоттер

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.