строки

[Katya46757]

помогите пожалуйста!!!
вводится 5 строк, заменить первый элемент символа на последний в каждой строке

[min@y™]

Где вы постоянно берёте такие задачи, а?

[Dvoishnik]

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

помогите пожалуйста!!!
вводится 5 строк, заменить первый элемент символа на последний в каждой строке

первый элемент символа??

если имелся ввиду элемент строки то можно так

var s:string;
    si:char;
    i:byte;
begin
for i:=1 to 5 do
 begin
  writeLn('Вседите строку № ',i,' : ');
  readln(s);
  si:=s[1];
  s[1]:=s[length(s)];
  s[length(s)]:=si;
  Writeln('результат : ');
  writeln(s)
  WriteLn;
 end;
readLn;   
end.

[Dvoishnik]

Сообщение от min@y™

Где вы постоянно берёте такие задачи, а?

хорошая фантазия и незнание, нежелание понимать базовые термины, незнание русского языка, (нужное подчеркнуть).

П.С. ну да и уверенность что язык программирования только один в мире.

[Serge_Bliznykov]

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

П.С. ну да и уверенность что язык программирования только один в мире.

Ей нужно в Pascal

[Dvoishnik]

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

Ей нужно в Pascal

да уже увидел прикрытую тему)) я Ванга))