Заменить натуральное число на число, которое получается из исходного записью его цифр в обратном порядке

@пока что чайник · Регистрация: 15.02.2011

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке. Например, дано число 156, нужно получить 651.

(помогите пожалуйста кто может,а то завтра надо уже сдавать,заранее спасибо)

@Puporev · 27.02.2011, 21:01

Pascal

uses crt;
var n,p:longint;
    i:integer;
begin
clrscr;
write('n=');
readln(n);
p:=0;
while n>0 do
  begin
    i:=n mod 10;
    p:=p*10+i;
    n:=n div 10;
  end;
write(p);
readln
end.

@TAVulator · 27.02.2011, 21:02

Pascal

var
 A, B: integer;
Begin
 A:=156;
 writeln('Было: ',A);
 B:=0;
 While A<>0 do
  Begin
   B:=(B+(A mod 10))*10;
   A:=A div 10;
  End;
 B:=B div 10;
 Writeln('Получилось: ',B);
 REadln;
End.

Заменить натуральное число на число, которое получается из исходного записью его цифр в обратном порядке

Решение

Решение

@пока что чайник 2 / 2 / 0 Регистрация: 15.02.2011 Сообщений: 41
		1
	Заменить натуральное число на число, которое получается из исходного записью его цифр в обратном порядке 27.02.2011, 20:55. Просмотров 7600. Ответов 2 Метки нет (Все метки) Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке. Например, дано число 156, нужно получить 651. (помогите пожалуйста кто может,а то завтра надо уже сдавать,заранее спасибо) 0

Опции темы