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

Публикувано на 09 май, понеделник от Данаил

Да се отпечатат всички числа в интервала [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

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

One Response to Числата и техните делители

  1. Данаил каза:
    09 май, понеделник в 10:49 
    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.

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