Предмет: Информатика,
автор: Promich
дано натуральное четырехзначное число найти число , полученное перестановкой 2 и 3 цифр заданного числа.
Составить в Pascal при помощи div и mod
Ответы
Автор ответа:
1
var n,a,b,c,d:integer;
begin read(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
n:=1000*a+100*c+10*b+d;
writeln(n);
end.
begin read(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
n:=1000*a+100*c+10*b+d;
writeln(n);
end.
Похожие вопросы
Предмет: Русский язык,
автор: eblinowa2013
Предмет: Физика,
автор: JoouBI
Предмет: Математика,
автор: ksenia1706
Предмет: Математика,
автор: Evrei201
Предмет: Обществознание,
автор: srty82