Переставить местами первую и последнюю цифры числа

@RamilKo · Регистрация: 15.06.2013

Author24 — интернет-сервис помощи студентам

Дано натуральное число N. Переставить местами первую и последнюю цифры этого числа.

@Puporev · 16.06.2013, 12:46

Чисто арифметически

Pascal

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

@RamilKo 0 / 0 / 0 Регистрация: 15.06.2013 Сообщений: 9
		1
	Переставить местами первую и последнюю цифры числа 16.06.2013, 10:01. Показов 5962. Ответов 1 Метки нет (Все метки) Дано натуральное число N. Переставить местами первую и последнюю цифры этого числа. 0

	16.06.2013, 12:46

Переставить местами первую и последнюю цифры числа

Решение