uses crt; var n,m,c1,cp:longint; k,i:byte; begin clrscr; write('n=');readln(n);{например 12345} cp:=n mod 10;{последняя цифра=5} n:=n div 10;{число без последней цифры=1234} m:=n;{запомним его} k:=0; while m>9 do{пока не останется 1 цифра} begin m:=m div 10;{первая цифра=1} k:=k+1;{количество разрядов без первого=4} end; c1:=m;{запомним первую цифру=1} for i:=1 to k do begin m:=m*10;{повышаем разряд числа, равного первой цифре=1000} cp:=cp*10;{повышаем разряд последней цифры=5000} end; n:=(n-m)*10+c1+cp*10;{получаем число=(1234-1000)*10+1+5000*10=52341} writeln('n2=',n); readln end.
среда, 28 апреля 2010 г.
Натуральное число, перестановка чисел
Дано натуральное число. Требуется найти число, получаемое из исходного перестановкой его первой и последней цифр.
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий