Câu hỏi
whiteroses
26/04/2013 21:34
Giúp em với: Viết chương trình nhập 3 số từ bàn phím, tìm USCLN của 3 số đó, sử dụng chương trình tìm USCLS
giúp em với: viet chuong trinh nhap 3 so tu ban phim,tim ÚCLN cua 3 so do,su dung Chuong trinh tim USCLN cua 2 so lam chuong trinh con.
hoahong
26/04/2013 21:34
Danh sách câu trả lời (1)
hoahong
26/04/2013 21:34
Chuong trinh tim USCLN cua 2 so lam chuong trinh con.
Có 2 cách để làm bài tập này:
Cách 1:
Program bt2;
uses crt;
var m,n,UCLN:integer;
begin
clrscr;
write('nhap 2 so can tính UCLN:');
readln(m,n);
if m=n then UCLN:=m
else
repeat
if (m>n) then m:=m-n
else n:=n-m;
until (m=n);
UCLN:=n;
writeln('uoc chung lon nhat cua 2 so tren la: ',UCLN);
readln
end.
Và cách 2:
Program bt2_2;
uses crt;
var m,n,UCLN,d,i:integer;
begin
clrscr;
write('Nhap 2 so can tinh uoc chung lon nhat: ');
readln(m,n);
if mbegin
d:=m;
m:=n;
n:=d;
end;
for i:=m downto 1 do
if (m mod i = 0) and (n mod i = 0) then begin
UCLN:=i;
break;
end;
writeln('UCLN cua 2 so da cho la:', UCLN);
readln
end.
Có 2 cách để làm bài tập này:
Cách 1:
Program bt2;
uses crt;
var m,n,UCLN:integer;
begin
clrscr;
write('nhap 2 so can tính UCLN:');
readln(m,n);
if m=n then UCLN:=m
else
repeat
if (m>n) then m:=m-n
else n:=n-m;
until (m=n);
UCLN:=n;
writeln('uoc chung lon nhat cua 2 so tren la: ',UCLN);
readln
end.
Và cách 2:
Program bt2_2;
uses crt;
var m,n,UCLN,d,i:integer;
begin
clrscr;
write('Nhap 2 so can tinh uoc chung lon nhat: ');
readln(m,n);
if m
d:=m;
m:=n;
n:=d;
end;
for i:=m downto 1 do
if (m mod i = 0) and (n mod i = 0) then begin
UCLN:=i;
break;
end;
writeln('UCLN cua 2 so da cho la:', UCLN);
readln
end.
Trả lời câu hỏi
Câu hỏi lĩnh vực Lập trình
Rao vặt Siêu Vip