Перевернуть число, в десятичной записи Опции

[Светлана]

Здравствуйте!!!
Опять хочу попросить Вас о помощи... Мне даны 2 задачи, помогите мне пож-та найти в них ошибки...
Заранее большое спасибо!
1) Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано число 486, нужно получить 684).
Вот мой вариант, но там высвечивается ошибка где буква k : duplicate identifier. Помогите разобраться...

program chisla;

function pereverni(X:string):string;
var S:string; i:integer;
begin
  S:=x;
   for i:=1 to length(x) do
    begin
     S[length(x)+1-i]:=x[i];
    end;
  pereverni:=S;
 end;

var k,g:string;
 k:='sdfgs';
 g:=pereverni(k);
 writeln(g);
 readln;
end.

Вот, мои задачи... Почогите пож-та их довести до ума. Спасибо.

М

Вторая задача вырезана. Читай Правила Раздела (над окном ввода, п.6). Lapp

М

Светлана - теги, теги, ТЕГИ! Выпадающее меню CODE над окном ввода видишь? Lapp

М

Название темы неинформативно. Читай Правила Форума!! Я отредактировалLapp

[Bokul]

Тебе не хватает только одного begin

var k,g:string;
 begin  {----------сдесь}
 k:='sdfgs';
 g:=pereverni(k);
 writeln(g);
 readln;
end

Сообщение отредактировано: Bokul - 1.12.2006 6:25

[volvo]

Светлана, кстати, для того, чтобы "перевернуть" число, совершенно необязательно его преобразовывать в строку:
Замечательные числа -> Определить, является ли число палиндромом (без его преобразования в строку)

[Светлана]

Спасибо большое!