Как сушествить перевод числа?

← →
Саня (2004-09-15 00:02) [0]

Дано натуральное число N. Найти число, получающееся, если записать цифры числа N в обратном порядке.
Вход
В первой строке входа дано целое число N (0<=N<=1e9).
Выход
В первую строку выхода вывести результат.
Пример
Вход:

123
Выход:

321

← →
Palladin © (2004-09-15 00:10) [1]

Думай федя думай. Задачи для того и дадены.

← →
Саня (2004-09-15 00:20) [2]

>Palladin © (15.09.04 00:10) [1]
Думай федя думай. Задачи для того и дадены.

Я не прошу исходник. Подскажите чем лучше воспользоваться - циклом, массивом иль еще чем?

← →
jack128 © (2004-09-15 00:24) [3]

Саня (15.09.04 0:20) [2]
циклом. Если строку считать массивом сиволов, то и массивом..

← →
Megabyte © (2004-09-15 00:24) [4]

Епта. Массив, конечно. :)

← →
Саня (2004-09-15 00:24) [5]

Спасибо.

← →
wl (2004-09-15 08:58) [6]

совершенно непонятно, причём тут натуральное число, если ввести можно хоть матерное слово.
похоже это какая-то контрольная задача и работать придётся именно с числом, то есть брать остатки от деления и умножать их на 10...

← →
pavel_pavel © (2004-09-15 09:08) [7]

А я за рекурсию :) - в инсте похожую задачу с помощью нее решали. там надо было строку наоборот записать

← →
Ega23 © (2004-09-15 09:16) [8]

Конечно рекурсия. И никаких строк, всё только числами. Со строками - читерство!

Кстати, а результат функции, когда на входе 1000 какой?

← →
Dum (2004-09-15 09:43) [9]

Edit1.SelStart=0 и пиши себе в обратном порядке

← →
Dum (2004-09-15 09:45) [10]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit1.SelStart:=0
end;

← →
Defunct © (2004-09-15 09:47) [11]

Саня (15.09.04 00:02)

см [6]. mod/div надо юзать и никаких массивов

← →
TUser © (2004-09-15 10:03) [12]

См. на второй странице.
Мое инкогнито вчера было раскрыто на 33 посту.

← →
Сергей Цвигун (2004-09-15 10:59) [14]

Зачем изобретать "велосипед": в unit"e StrUtils уже есть функция
function ReverseString(const AText: string): string;
(Description: ReverseString returns the string specified by AText with the characters in reverse order.)
А уж преобразовать из Int/Int64 в String и обратно вроде не сложно :-)

Сергей Цвигун (15.09.04 10:59) [14]

Наверняка ему за такое читерство "банан" влемят.

оффтоп: ты в МИФИ не учился?

← →
MegaBass (2004-09-15 11:22) [16]

условие задачи читать надо мастера
>>> N (0<=N<=1e9).
пример : 1е7 результат???
так что строки тут не ройдут
?)

> [16] MegaBass (15.09.04 11:22)
> условие задачи читать надо мастера
> так что строки тут не ройдут

Можно подробнее? И расшифруйте тогда, что значит записать в обратном порядке число?

← →
wl (2004-09-15 11:53) [18]

может поможет? 1e9 это не целое число, по заверениям делфи
procedure TForm1.Button1Click(Sender: TObject); var i,j: integer; begin i:=StrToInt(Edit1.Text); j:=0; while(i > 0) do begin j := j*10 + i mod 10; i := i div 10; end; Edit2.Text := IntToStr(j); end;

Как сушествить перевод числа? Найти похожие ветки