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

@TIp()k · Регистрация: 18.01.2010

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

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

@TAVulator · 18.01.2010, 21:45

Pascal

Var
 A,B,k: integer;
Begin
 A:= 5683;
 Writeln('> ',A);
 B:=A;
 k:=1;
 while B<>0 do
  Begin
   k:=k*10;
   B:=B div 10;
  End;
 k:=k div 10;
 A:=(((((A mod 10)*k)+(A-(A div k)*k))div 10)*10)+(A div k);
 Writeln('> ', A);
End.

@кот Бегемот · 19.01.2010, 01:07

Какой-то уж очень частный случай. Вот в общем виде для любого числа:

Pascal

var
a,chislo,t:longint;
c,nov,posl:integer;
begin
readln(a);
posl:=a mod 10;
chislo:=a;
t:=1;
repeat
a:=a div 10;
t:=t*10;
until a<10;
chislo:=chislo mod t;
chislo:=posl*t+chislo-posl+a;
writeln(chislo);
readln;
end.

@TAVulator · 19.01.2010, 06:31

Сообщение от alexevt

Какой-то уж очень частный случай.

почему?
замени "A:= 5683;" на readln(A); и будет тебе для любого числа.

@white0prof- · 30.06.2019, 11:25

Pascal

var
  x, p, ed, c: integer;
  m: real;
 
begin
  write('Введите число: ');
  read(p);
  x := p;
  ed := x mod 10;
  while (p >= 10) do 
  begin
    inc(c);
    p := p div 10;
  end;
  m := power(10, c);
  writeln('Ответ: ', (x - (m * p) - ed) + ed * m + p);
end.

@TIp()k 1 / 1 / 0 Регистрация: 18.01.2010 Сообщений: 68
		1
	Программа, которая меняет местами первую и последнюю цифры числа 18.01.2010, 21:34. Показов 16746. Ответов 4 Метки нет (Все метки) Программа которая меняет местами первую и последнюю цифры числа 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	19.01.2010, 06:31	4
	Сообщение от alexevt Какой-то уж очень частный случай. почему? замени "A:= 5683;" на readln(A); и будет тебе для любого числа. 1

	30.06.2019, 11:25

Опции темы