Цикл с предусловием While

[SeeJay]

ПРошу Вашей помощи!Необходимо вывести пирамиду вида
a
ab
abc
abcd
abcde
..........
abcd.....z

[SeeJay]

Неужели никто не знает как?

[Lemo]

2 мин подожди!

[SeeJay]

Ага, жду

[IT-man]

держи земеля))))

var
i,k:integer;
begin
k:=ord('a')+1;
while k<ord('a')+27 do begin
i:=ord('a');
while i<k do begin
write(chr(i));
  i:=i+1;
end;
 k:=k+1;
writeln;
end;
readln;
end.

[SeeJay]

Спасибо биг, программа работает, но как то неправильно она выводит алфавит не в пирамиду, а в 1 строку, а надо чтобы как в 1 посту...как сделать эт?

[IT-man]

У меня например все выводит в пирамиду.

[SeeJay]

странно как то...может у меня паскаль глючит...ладно, попробую так сдать Спасибо еще раз те

[AlexanderKs]

program New;
var i,j:integer;  s:string;
begin
i:=1;
while i<=27 do begin
  j:=1; s:='';
  while j<i do begin
    s:=s+' '+chr(96+j);
    inc(j);
  end;
  Writeln(s);
inc(i);
end;
Readln;
end.

[Lemo]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 var
 i:integer;
 st:string;
begin
 st:=' ';
for I := 97 to 122 do
 begin
     st:= st +chr(i);
     writeln(st);
 end;
 readln;
end.