Много Баллов!!!
как сделать лесенку из алфавита в pascal abc
a
ab
abc
abcd...
.....
по принципу
program...
var i: byte;j: char;
begin
.....
Ответы на вопрос
Ответил ihorsyrota
0
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.
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.
Новые вопросы