Информатика, опубликовано 2018-08-22 23:36:04 by Гость
. Дано четырехзначное число. Найти число, полученное перестановкой второй и третьей цифры заданного числа. (Например, 4567 ---> 4657)
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.