Версия для печати темы

Автор: Светлана 1.12.2006 10:09

Здравствуйте!!!
Опять хочу попросить Вас о помощи... Мне даны 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 1.12.2006 10:25

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

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

Автор: volvo 1.12.2006 13:03

Светлана, кстати, для того, чтобы "перевернуть" число, совершенно необязательно его преобразовывать в строку:
http://forum.pascal.net.ru/index.php?s=&showtopic=3916&view=findpost&p=30660 -> Определить, является ли число палиндромом (без его преобразования в строку)

Автор: Светлана 1.12.2006 23:07

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