Числата и техните делители

Да се отпечатат всички числа в интервала [a, b], по едно на ред. На същия ред да се отпечатат и всички числа, на които даденото число се дели без остатък. Например:

Интервал:
5 10
Числа:
5: 1 5
6: 1 2 3 6
7: 1 7
8: 1 2 4 8
9: 1 3 9
10: 1 2 5 10

Публикувано в с етикети . Постоянна връзка.

Един коментар по Числата и техните делители

  1. Данаил каза:
    program Project1;
    var
      a, b, chislo, j: integer;
    begin
      WriteLn('Vavedete a i b:');
      ReadLn(a, b);
      for chislo:= a to b do begin
        Write(chislo, ': ');
        for j:= 1 to chislo do begin
          if chislo mod j = 0 then
            Write(j, ' ');
        end;
        WriteLn;
      end;
      ReadLn;
    end. 

Вашият коментар