Цитата:
Сообщение от AlexZir
Для решения нужно использовать расширенный набор строковых функций из библиотеки crt.
Если никто не напишет - будет вам листинг.
|
Ну не знаю - если я правильно понял задание насчет "лесенки", то вроде можно и по-простому, по рабоче-крестьянски:
Код:
Uses CRT;
VAR
S:String;
i:Byte;
j:Integer;
BEGIN
Repeat
ClrScr;
WriteLn('Enter the string:');
ReadLn(S);
If S<>'' then
begin
i:=1;
repeat
for j:=1 to (i-1) do
Write(' ');
WriteLn(S[i]);
Inc(i);
until S[i]=' ';
repeat
Inc(i);
until S[i]<>' ';
for j:=1 to i do
Write(' ');
for j:=i to Length(S) do
Write(S[j]);
WriteLn;
ReadLn;
end;
Until S='';
END.
Программа выходит из цикла при вводе пустой строки.