Дано шестизначное яисло.Найти число,полученное перестановкой 1-ой и 2-ой цифр,3-ей и 4-ой цифр,5-ой и 6-ой цифр.

Дано шестизначное яисло.Найти число,полученное перестановкой 1-ой и 2-ой цифр,3-ей и 4-ой цифр,5-ой и 6-ой цифр.
Гость
Ответ(ы) на вопрос:
Гость
var a,a1,a2,a3,a4,a5,a6,b:integer; begin write('a = '); readln(a); a1:=a div 100000; a2:=a div 10000 mod 10; a3:=a mod 10000 div 1000; a4:=a mod 1000 div 100; a5:=a mod 100 div 10; a6:=a mod 10; b:=a2*100000+a1*10000+a4*1000+a3*100+a6*10+a5; writeln('b = ',b); end. Пример: a = 123456 b = 214365
Не нашли ответ?
Ответить на вопрос
Похожие вопросы