Question

Viết chương trình nhập vào các số nguyên dương a,b,c,d rồi tìm ƯCLN và BCNN của chúng.

Lưu ý: Nếu nhập số âm hoặc số thập phân báo nhập lại (lệnh repeat...until).

Nhờ các CTV trao 2GP cho bạn đúng và nhanh nhất

Answer 1

Chấm cái theo dõi để tài trợ :))

Answer 2

Var

a,b,c,d,i,A,B,C,D,BCNN,UCLN,i1,i2:integer;

Begin

repeat

writeln('Hay nhap a:');

readln(a);

writeln('Hay nhap b:');

readln(b);

writeln('Hay nhap c:');

readln(c);

until (a*10 mod 10=0;b*10 mod 10=0;c*10 mod 10=0; d*10 mod 10=0);

a:=A;

b:=B;

c:=C;

d:=D;

i:= a mod b;

while i<>0 do

begin

i:=a mod b;

a:=b;

b:=i;

end

UCLN:=a;

i1:= a mod c;

while i1<>0 do

begin

i1:=a mod c;

a:=c;

c:=i1;

end

UCLN:=a;

i2:= a mod d;

while i2<>0 do

begin

i2:=a mod d;

a:=d;

d:=i2;

end

UCLN:=a;

BCNN:=(A*B*C*D)/UCLN;

Writeln('BCNN: ',BCNN:10:4,'UCLN: ',UCLN:10:4);

Readln;

end.

Answer 3

Câu hỏi này rất là hay

Answer 4

híp B (Erik) bảo nam trầnTú NguyễnTrương Quang Dũng @Đoàn Gia Khánh

Answer 5

ko đc dùng c++ à ?