Решить : решите сколько сможете,заранее 1)дано натуральное трехзначное число . определить число, полученное перестановкой разрядов десятков и единиц исходного числа. 2)дано натуральное трехзначное число . определить число, полученное перестановкой разрядов десятков и сотен исходного числа. 3)дано натуральное трехзначное число . составьте программу, выводящую четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева (в разряд тысяч) 4)дано натуральное четырехзначное число . найдите число, образованное перестановкой цифр исходного числа в обратном порядке. 5)дано натуральное четырехзначное число . определить число, полученное перестановкой разрядов десятков и единиц исходного числа. 6)дано натуральное четырехзначное число . определить число, полученное перестановкой разрядов десятков и сотен исходного числа.

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 меняешь местами цифры и все.

   

Пусть исходные координаты чертежника (x; y). смоделируем алгоритм: 0) (x; y) 1) (x-1; y-2) 2) n раз делается одно и то же: первая координата изменяется на a, затем из нее вычитается 1, вторая координата изменяется на b, затем вычитается 2. в результате координаты равны: (x-1+n*(a-1); y-2+n*(b-2)) 3)  (x-1+n*(a-1)-20; y-2+n*(b-2)-12)концом работы программы является попадание в стартовую позицию. то есть  x-1+n*(a-1)-20=x => n*(a-1)=21 y-2+n*(b-2)-12=y => n*(b-2)=14тогда n нужно искать среди делителей чисел 21 и 14. точнее ответом будет нод(21, 14)=7.