Очень интересная задача на Pascal !!! Советую посмотреть!!!

[d00ker]

Значит условие такое:
Дана фраза, нужно написать программу таким образом, чтобы первая буква в этой фразе заняла позицию к-ой буквы, а буквы первая, вторая, ... , к-ую переместить на одну позицию влево!!!

[Sm1Le]

Ничего интересного .... Поиск по форуму поможет разобраться ...

[alex_fcsm]

Ну оооочень интересная

var s,sub:string;
    i,k:integer;
    m:set of char;
begin
readln(s);
repeat
readln(k);
until k<=length(s);
sub:=s[k];
for i:=2 to k-1 do
 sub:=sub+s[i];
sub:=sub+s[1];
for i:=k+1 to length(s) do
 sub:=sub+s[i];
 writeln(sub);
end.

[d00ker]

спасибо!

[alex_fcsm]

И что не правильно?

readln(s); - {считываем строку}
repeat
readln(k); - {считываем номер буквы}
until k<=length(s); - {чтобы номер присутствовал в строке}

[d00ker]

да все правильно, я просто с первого взгляда не понял! не проверял!