Помогите решить срочно: РЕШИТЕ СКОЛЬКО СМОЖЕТЕ,ЗАРАНЕЕ СПАСИБО!!!! 1)Дано натуральное...

Question

Помогите решить срочно:

РЕШИТЕ СКОЛЬКО СМОЖЕТЕ,ЗАРАНЕЕ СПАСИБО!!!!

1)Дано натуральное трехзначное число . Определить число, полученное перестановкой разрядов десятков и единиц исходного числа.

2)Дано натуральное трехзначное число . Определить число, полученное перестановкой разрядов десятков и сотен исходного числа.

3)Дано натуральное трехзначное число . Составьте программу, выводящую четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева (в разряд тысяч)

4)Дано натуральное четырехзначное число . Найдите число, образованное перестановкой цифр исходного числа в обратном порядке.

5)Дано натуральное четырехзначное число . Определить число, полученное перестановкой разрядов десятков и единиц исходного числа.

6)Дано натуральное четырехзначное число . Определить число, полученное перестановкой разрядов десятков и сотен исходного числа.

Answer 1

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