Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.