(#1) Мастер
21.01.2016 12:34:42 |
Преобразуй число в строку и делай с ней что хочешь например так
var
k, n: integer;
s, new: string;
c: char;
begin
snew:= ''; {Новая строка}
Readln(n); {получаем n}
str(n, ); {преобразуем n в строку s}
{Создаём новую строку начиная со 2 символа
старой строки}
for k:= 2 to Length(s) do
begin
c:= s[k]; snew:= snew + c;
end;
writeln(snew);
{если нужно преобразовать новую строку опять в число
воспользуйся Val(S, x, kod)}
end.
|