Location: PHPKode > projects > WWW-Admin > wwwadmin-0.1lt/tmp/mbk.txt
progten mbka;
var
x,y,mbk : integer;

function dbd(a,b : integer):integer;
var
k : integer;
begin
    while a <> b do
    begin
         if a < b then
         begin
          r:=a;
          a:=b;
          b:=r;
         end;
        a:=a-b;
    end;

   dbd := a;
end;

begin
 Writeln('iveskite 2 skaicius:');
Readln(x,y);
mbk:=x*y div dbd(x,y);
Writeln('Maziausias bendras kartotinis yra:',mbk);
Readln;
end.
Return current item: WWW-Admin