Dasturlash tillari haqida Tabiiy

Mil. Avv. 325-265 y.



program EKUK;

uses crt;

function EKUB(a,b:integer):integer;

begin

clrscr;

If (b=0) then

EKUB:=a

else

EKUB:=EKUB(b,a mod b);

end;

var

x,y:integer; {o’zgaruvchilar e’lon qilinayapti}

begin

writeln('sonlarni kirirting');

write('x='); {birinchi son }

readln(x); {birinchi sonni o’qib olish}

write('y='); {ikkinchi son}

readln(y); {ikkinchi sonni o’qib olish}

write('EKUK=' , (x*y)/EKUB(x,y)); { birinchi va ikkinchi sonlar ko’paymasini topillgan EKUK ga bo’lish}

readln;

end.