Алгоритмы с комбинацией циклов и условных оператор, Помогите решить 1 задачу Опции

[GORBUNKI]

Помогите решить 1 задачу:
1.Дано натуральное число. Приписать к нему такое же.
Заранее Спасибо

[Atos]

Тогда можно переделать так:

Код

var a, tmp1, tmp2:longint;

begin
Writeln('введите число: '); Readln(a);
tmp1:=a;
tmp2:=a;
repeat
tpm1:=tmp1 div 10;
tmp2:=tmp2*10;
until (tmp1=0);
Writeln('Число и приписанное к нему точно такое:');
Writeln(tmp2+a);
readln;
end.

Сообщение отредактировано: Atos - 17.04.2004 5:57