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

[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 18:14