Напишите программу, используя вложенные циклы (FOR)

[lol32]

Составить программу для графического изображения делимости чисел от 1 до n (значение n вводится с клавиатуры). В каждой строке надо напечатать очередное число и столько символов «+», сколько делителей у этого числа. Например, если n=4, то на экране должно быть напечатано:
1+
2++
3++
4+++

[Алексей_2012]

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
  i, j, posit: Integer;
begin
  posit := StrToInt(Trim(Edit1.text));
  for i := 1 to posit do
  begin
    s := '';
    for j := 1 to i do
      if ((i mod j) = 0) then
        s := s + '+';
    memo1.Lines.Add(IntToStr(i) + s);
  end;
end;

написал на делфи, устроит?) Алгоритм понятен?) Дерзай, делфи это object pascal, паскаля нет под рукой, но если мне память не изменяет, то примерно так:

uses crt;
var
  s: string;
  i, j, posit: Integer;
begin
  clrscr;
  writeln('BBEDITE CHISLA');
  readln(posit);
  writeln;
  for i := 1 to posit do
  begin
    s := '';
    write(i);
    for j := 1 to i do
      if ((i mod j) = 0) then  s:=s+'+';
    write(s);
   writeln;
  end;
 writeln('POTRACHENO!');
 readln;
end.

Вот для наглядности файл проекта написанный на делфи, посмотри сам, что все работает. Помог? Жми на весы как на награду)) (слева)))

[Serge_Bliznykov]

оптимизации ради хочу отметить, что в консольной версии легко обойтись без переменной s:

...
for i := 1 to posit do
  begin
    write(i);
    for j := 1 to i do
      if ((i mod j) = 0) then  Write('+');
    writeln;
  end;
...

но это так, просто небольшое примечание