KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
uses crt; var u, i2, b, t, i, x, y, dem: integer; begin clrscr; write (‘nhap x: ‘); readln (x); write (‘nhap y: ‘); readln (y); b:=x*y; t:=y mod x; while t<>0 do begin t:=x mod y; x:=y; y:=t; end; u:=x; b:=b div u; writeln (‘UCLN la: ‘,u); writeln (‘BCNN la: ‘,b); dem:=0; for i:=1 to x do if x mod i = 0 then begin write (i,’ ‘); dem:=dem+1; end; writeln (‘co tat ca ‘,dem,’ UC’); readln; end.
uses crt;
var u, i2, b, t, i, x, y, dem: integer;
begin
clrscr;
write (‘nhap x: ‘); readln (x);
write (‘nhap y: ‘); readln (y);
b:=x*y;
t:=y mod x;
while t<>0 do
begin
t:=x mod y;
x:=y;
y:=t;
end;
u:=x;
b:=b div u;
writeln (‘UCLN la: ‘,u);
writeln (‘BCNN la: ‘,b);
dem:=0;
for i:=1 to x do
if x mod i = 0 then
begin
write (i,’ ‘);
dem:=dem+1;
end;
writeln (‘co tat ca ‘,dem,’ UC’);
readln;
end.
Viết chương trình tìm ƯỚC CHUNG LỚN NHẤT VÀ BỘI CHUNG NHỎ NHẤT CỦA HAI SỐ :
var x,y,UCLN,BCNN,t:integer;
begin
readln(x,y) ;
BCNN:=x*y;
t:= y mod x;
While t <> 0 do
Begin
t:= x MOD y;
x:= y;
y:= t;
End;
ucln:=x;
BCNN:=BCNN div UCLN;
write(UCLN,’ ‘,BCNN);