Составить блок-схему и программу. Алгоритмизация и программирование

01.01.2001

Составить блок-схему и программу. Алгоритмизация и программирование
Составить блок-схему и написать программу определения всех делителей целого числа М, включая 1.

  • Могу по Гост 19.701-90, пиши
    for i:=1 to trunc(M/2 do
    if m mod i = 0 then write(i:4);
  • for( i = 1; i < (n/2); i++ ) if (n % i == 0) printf( "%d\n", i );
  • паскаль:
    var
    a,b:integer;
    c:array[0..400] of integer;
    d,i:byte;
    begin
    d:=0;
    writeln('Введите число');
    readln('a');
    b:=round(a/2);
    for i:=1 to b do
    begin
    if a mod i =0 then
    begin
    c[d]:=i;
    inc(d);
    writeln(c[d]:4);
    end;
    end;
    writeln(a);
    end.

    Если не надо сохранять все делители, то убираем
    c[d]:=i;
    inc(d);
    меняем writeln(c[d]:4); на writeln(i:4);

  • Алексей, число является своим делителем. Но даже и без этого ты пропустил n/2.
    Так что

    for(int i = 1; i <= sqrt(n); i++ ) if (n % i == 0) printf( "%d %d ", i, n / i );

Вас заинтересует