Простая задачка!ПОМОГИТЕ СРОЧНО! Опции

[bestlover]

Дано натуральное число. Приписать к нему такое же. Но чтобы можно было с этой цифрой потом операции выполнять!

[Vinchkovsky]

Ну да, конечно, немного проще, как-то и не подумал - написал наиболее очевидный (для меня) вариант
Хотя, мой вариант тоже можно упростить

var A:longint;
    i:integer;
    S:string;
begin
 A:=1234;
 str(A,S);
 val(S+S,A,i);
 writeLn('New number: ', A);
end.

Сообщение отредактировано: Vinchkovsky - 19.10.2008 22:14

[Lapp]

Хотя, мой вариант тоже можно упростить

Ты его не только упростил, но и улучшил . Последняя строчка в первом варианте просто вредная - ты оставляешь символ в буфере.
Но простота моего решения не в количестве строчек. Оно годится практически без переделок для любой системы счисления. И оно проще в смысле внутреннего представления: меньше код, меньше памяти нужно, быстрее выполнение.

М

Приношу всем извинения, что не заметил сразу. bestlover, прошу тебя соблюдать Правила Форума (п.4)