program ValStr;
uses Crt;
var A:longint;
i:integer;
S:string;
begin
ClrScr;
write('Enter the number: '); readLn(A); {Читаем число}
str(A,S); {Переводим числовую переменную в строковую}
S:=S+S; {Дописываем нужные цифры}
val(S,A,i); {Переводим из строковой переменной в числовую}
writeLn('New number: ', A); {Выводим измененное число}
Repeat until KeyPressed
end.
var
n,m: LongInt;
begin
n:=1234;
m:=10;
while n div m>0 do m:=m*10;
n:=n*m+n;
WriteLn(n)
end.
var A:longint;
i:integer;
S:string;
begin
A:=1234;
str(A,S);
val(S+S,A,i);
writeLn('New number: ', A);
end.
М | Приношу всем извинения, что не заметил сразу. bestlover, прошу тебя соблюдать Правила Форума (п.4) |