[almazz]

Сообщение от Kapitoshka438

Так круче:

Код:

var
  C: Char;
  S: string;
begin
  S := '';
  for C := 'a' to 'z' do
  begin
    S := S + C;
    Writeln(S);
  end;
end;

нихера неправильно вы считаете

Сообщение от dr. F.I.N.

Зачем 2 цикла????

Код:

var
  s: String;
begin
  s:='';
  for i := 65 to 90 do 
  begin
    s := s + Chr(i);
    WriteLn(s);
  end;
end;

где переменная i?

Сообщение от Страдалецъ

В консольном приложении будет где-то так:

Код:

for i := 65 to 90
do begin
    for j := 65 to i
    do Write(Chr(j));
    WriteLn;
    end;

тут тоже неправильно.....



надо считать как от 1 до 1000
только счетом от chr(97 до 122)
примерно так:

97
98
99
..
122
9797
9798
9799
... и т .д.