Hirdetés

Hozzászólok Aktív témák

  • b14

    senior tag

    válasz #57764352 #111 üzenetére

    HIHI
    Az osztoit igy lehet meghatarozni egy szamnak (pascal megoldas, c-ben is kuldhetem, ha kell):

    {osztoi.pas}
    uses crt;
    var a, b, szam, r , i, h,g : longint;
    aszamai, bszamai: array [1..200] of longint;
    begin
    writeln('Kerem az ''A'' erteket');
    readln(a);
    writeln('Kerem a ''B'' erteket');
    readln(b);
    clrscr;
    writeln('A szamai: ');
    writeln;
    for szam := a downto 1 do
    begin
    clrscr;
    r:=0;
    writeln('Most ',szam);
    for i:=szam downto 1 do
    begin
    if szam mod i = 0 then

    begin
    writeln(szam div i);
    inc(r);
    aszamai[r]:=szam div i;
    end;

    end;
    writeln;
    writeln;
    h:=r;
    writeln('Ez osszesen ',r,' szam volt');
    readkey;
    end;

    clrscr;
    writeln('B szamai: ');
    writeln;
    for szam := b downto 1 do
    begin
    clrscr;
    r:=0;
    writeln('Most ',szam);
    for i:=szam downto 1 do
    begin
    if szam mod i = 0 then

    begin
    writeln(szam div i);
    inc(r);
    bszamai[r]:=szam div i;
    end;

    end;
    writeln;
    writeln;
    g:=r;
    writeln('Ez osszesen ',r,' szam volt');
    readkey;

    writeln('Kozos osztoik: ');
    for i:=1 to h do for r:=1 to g do if r = i then writeln(i);

    end.

    Ez egy eleg hosszu megoldas, igazabol nagyon is rogtonzott, lehet, hogy van benne hiba.

    Legnagyobb kozos osztot ugyan ezen az alapon, csak egy kicsit kell rajta szerkeszteni, a relatív prímek csak egy kicsit belenyulni a legnagyobb kozos oszto progi
    De juteszembe: if r = 1 then writeln('RELATÍV PRÍMEK!');
    Ha kell meg tudom csinalni a tobbit is!

    [Szerkesztve]

    ''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax

Hozzászólok Aktív témák

Hirdetés