Pasqal

[Илья20]

Здравствуйте, подскажите пожалуйста что не правильно и что надо исправить?!

Var s,t:string;i,n:integer;k:char; 
begin 
readln(s); 
n:=length(s); 
t:=''; 
for i := 1 to n do begin 
k:=s[i]; 
repeat 
t:=t+k; 
until k<>' ' 
end; 
write(t); 
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[p51x]

Сообщение от Илья20

repeat
t:=t+k;
until k<>' '

А самому понять, что раз k не меняется, то цикл будет вечным или ни разу не повторится?..

[Илья20]

В том то и дело, что я понимаю, что если While стоит в цикле, то программа зациклится, но не знаю, как избежать этого.

[p51x]

Как-то изменять то, от чего зависит условие цикла, т.е. k.