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

@titova · Регистрация: 28.03.2011

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

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

@MAZUR777 · 10.04.2011, 16:20

Pascal

VAR
 n,n1,m:LongInt;
 first,last:BYTE;
BEGIN
 WriteLn('Enter the number:');
 ReadLn(n);
 m:=1;
 While (n div m)>0 do m:=m*10;
 m:=m div 10;
 first:=n div m;
 last:=n mod 10;
 n1:=(((n mod m)+last*m) div 10)*10+first;
 WriteLn(n1);
 Readln;
END.

@titova 3 / 3 / 0 Регистрация: 28.03.2011 Сообщений: 39
		1
	Поменять местами первую и последнюю цифры числа 10.04.2011, 15:52. Показов 4449. Ответов 1 Метки нет (Все метки) поменять местами первую и последнюю цыфры числа 0

	10.04.2011, 16:20

Опции темы

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

Решение