Дано трехзначное число. Вывести число, полученное при перестановке цифр сотен и десятков исходного числа (например, 123 перейдет в 213)

Категория: Delphi/Pascal
2011-11-22 19:24:18
code: #pascal
Program Integer15;
var x,a,b,c,p:integer;
begin
Writeln('Введите число a');
readln(x);
a:=x div 100;
b:=(x div 10)mod 10;
c:=x mod 10;
p:=b*100+a*10+c;
Writeln ('Перестановленное местами =',p);
end.

автор: Zakirov Nail a.k.a ZevsNet

Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, М.Э.Абрамян, перестановка цифр, трехзначное число