[Muxa]

Как вывести циклом число "9" в таком виде:

9
99
999
9999
99999

Пробовал сделать через Length - не вышло...

[AleD]

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

Как вывести циклом число "9" в таком виде:

Пробовал сделать через Length - не вышло...

Код:

DupeString('9',5); //вывести 9 5 раз, модуль StrUtils

[friz]

Это надо чтобы вывело несколько строк? делфи или голый паскаль?

[Ultras]

только не пойму, почему тема называется "отнять", а надо прибавить в условии задачи?

если Delphi то:

Код:

var
  list: TStringList;
  i: integer;
  s: string;
begin
  s := '';
  list := TStringList.Create;
  for a:=1 to 5 do
  begin
    s := s + '9';  
    list.Add(s);  
  end;
  Memo1.Lines.Text := list.Text;
  list.Free;
end;

на выходе в Memo1 получим:

Код:

9
99
999
9999
99999

можно и так сделать:

Код:

var
  i: integer;
  s: string;
begin
  s := '';
  for a:=1 to 5 do
  begin
    s := s + '9' + #13;  
  end;
  Memo1.Lines.Text := s;
end;

на выходе тоже будет:

Код:

9
99
999
9999
99999

[Muxa]

Спасибо всем. Сам только что сделал, так как у Ultras в примере. И как я раньше не подумал об этом.