. Дано четырехзначное число. Найти число,
полученное перестановкой второй и третьей цифры
заданного числа. (Например, 4567 ---> 4657)
полученное перестановкой второй и третьей цифры
заданного числа. (Например, 4567 ---> 4657)
More Questions From This User See All
Answers & Comments
Verified answer
Var s:string;a,bug:integer;
n1,n2:char;
begin;
readln(a);
str(a,s);
n1:=s[2];
n2:=s[3];
s[3]:=n1;
s[2]:=n2;
val(s,a,bug);
writeln(a);
end.