Informatika gyűjtemény

NézetNyomtat

20110311m2

2. feladat megoldása

program f2;
{egy szám legnagyobb, nála kisebb osztója}

var d,N : longint;
begin
    readln(N); {Tfh: N > 1}
    d := N - 1;
    while (N mod d) <> 0 do d := d - 1;
    writeln(d);
end.