Информатика, опубликовано 2018-08-22 23:11:14 by Гость

Дано натуральное четырехзначное число найти число , полученное перестановкой 2 и 3 цифр заданного числа. Составить в Pascal при помощи div и mod

Ответ оставил Гость

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.