Program Hotboy ; Uses crt; var a,b,Ni,Nh: integer; begin Write(‘nhap so a’); readln(a); Write(‘nhap so b’); readln(b); Nh:=a*b; While a<>b do If a>b then a:=a-b else b:=b-a; Ni:=a; Nh:=Nh div Ni; Write(‘Boi chung nho nhat la’,Nh); Readln End. Trả lời
Program Boi chung nho nhat Uses crt Var m,n,BC,BCNN:integer; begin Write(‘Nhap vao 2 so nguyen duong m,n:’); Readln(m,n); BC:=m*n; While m<>n do if m>n then m:=m-n else n:=n-m; BCNN:=BC div m; Write(‘Boi chung nho nhat la:’,BCNN); Readln End. Trả lời
Program Hotboy ;
Uses crt;
var a,b,Ni,Nh: integer;
begin
Write(‘nhap so a’); readln(a);
Write(‘nhap so b’); readln(b);
Nh:=a*b;
While a<>b do If a>b then a:=a-b else b:=b-a;
Ni:=a;
Nh:=Nh div Ni;
Write(‘Boi chung nho nhat la’,Nh);
Readln
End.
Program Boi chung nho nhat
Uses crt
Var m,n,BC,BCNN:integer;
begin
Write(‘Nhap vao 2 so nguyen duong m,n:’);
Readln(m,n); BC:=m*n;
While m<>n do
if m>n then m:=m-n else n:=n-m;
BCNN:=BC div m;
Write(‘Boi chung nho nhat la:’,BCNN);
Readln
End.