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

vikasibarik vikasibarik    3   10.07.2019 09:10    0

Ответы
Nikita6537 Nikita6537  07.09.2020 08:53
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика