Замена 1ой на...

[pha]

Плиз, нужно составить прогу на паскале, кот заменяла бы первую букву на последнюю любого слова.

[__STDC__]

оО

var
  word:string;
begin
  readln(word); //Hello
  writeln(word); //Hello
  word[1] := word[length(word)];
  writeln(word); //oello
end.

в чем проблема?? или я чего-то недопонял?

[pha]

плиз. и последнюю на первую нужно в то же время

[Sazary]

плиз. и последнюю на первую нужно в то же время

о_О
А что, по аналогии не дополнить что-ли?

var
  word:string;
  ch : char;
begin
  readln(word); //Hello
  writeln(word); //Hello
  ch := word[1];
  word[1] := word[length(word)];
  word[length(word)] := ch;
  writeln(word); //oellH
end.

[KORN]

Сообщение от Sazary

о_О
А что, по аналогии не дополнить что-ли?

а зачем7 если можно сказать что я ноль, чайник, вообще ничего не понимаю в этом деле и ждать пока сделают за тебя