Много Баллов!!! как сделать лесенку из алфавита в pascal abc a ab abc abcd... ..... по...

Question

Много Баллов!!!
как сделать лесенку из алфавита в pascal abc
a
ab
abc
abcd...
.....
по принципу
program...
var i: byte;j: char;
begin
.....

Answer 1

Program p1;
var S,T: string;
i:integer;
begin
T:='abcdefghijklmnopqrstuvwxyz';
for i:=1 to 26 do
begin
S:=Copy (T,1,i);
writeln(S);
end;
end.