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