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

Question

. Дано четырехзначное число. Найти число, полученное перестановкой второй и третьей цифры заданного числа. (Например, 4567 ---> 4657)

Гость

Ответ(ы) на вопрос:

Accepted 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.