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

Категория: Delphi/Pascal
2011-11-22 19:25:21
code: #pascal
Program Integer16;
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:=a*100+c*10+b;
Writeln ('Перестановленное местами =',p);
end.

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

Поделиться:

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

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