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

@DevilSkyS · Регистрация: 09.02.2012

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

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

@Nyshk@ · 17.06.2013, 21:14

Pascal

var a,d,b,aa,k,s:integer;
begin
write('à = ');
readln(a);
aa:=a;
s:=0;
while a>0 do begin
k:=a mod 10;
s:=s*10+k;
a:=a div 10;
end;
d:=1; while aa div (d*10)>0 do d:=d*10;
aa:=aa mod 10*d+aa mod d div 10*10+aa div d;
WriteLn( aa);
end.

@DevilSkyS 2 / 2 / 0 Регистрация: 09.02.2012 Сообщений: 29
		1
	Переставить местами первую и последнюю цифры заданного натурального числа 27.11.2012, 18:18. Показов 2332. Ответов 1 Метки нет (Все метки) 2. Переставить местами первую и последнюю цифры заданного натурального числа. 0

Опции темы

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

Решение