Nhập vào từ bàn phím hai số nguyên dương có giá trị không vượt quá 65000, in ra màn hình ước chung lớn nhất và bội chung nhỏ nhất của chúng. b/ In ra màn hình tất cả các ước chung của hai số trên. giúp em với ạ

ngockhanhcute08

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 12 xem

1 trả lời

Thích Trả lời

ctvloga308

Program Hello;
uses crt;
var a,b,i:longint;
function gcd(a, b: longint): longint;
var
temp: longint;
begin
while b <> 0 do
begin
temp := b;
b := a mod b;
a := temp
end;
gcd:= a
end;

begin
clrscr;
readln(a,b);
writeln('UCLN: ', gcd(a,b));
writeln('BCNN: ', (a * b) div gcd(a, b));
write('Cac uoc chung: ');
for i:=1 to a do
if (a mod i = 0) and (b mod i =0) then
write(i,' ');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

lovemtpso

// Bcnn(a,b) = a*b / ucln(a,b)
// Uc(a,b) = U(Ucln(a,b))
uses crt;
var a,b:word;
t,i:longword;
begin
clrscr;
readln(a,b);
t:=a*b;
while a*b<>0 do
begin
a:=a mod b;
if a <> 0 then b:=b mod a;
end;
writeln('UCLN: ',a+b);
writeln('BCNN: ',t div (a+b));
write('Cac uoc chung: ');
t:=a+b;
for i:=1 to t do
if t mod i = 0 then write(i,' ');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

mn ơi mình đang cần gấp ai giúp mình với

Giải bất pt sau: $a, \dfrac{1}{n-2} ×(\dfrac{5}{n+1} × \dfrac{(n+1)!}{(n-3)!4!} - \dfrac{n.(n-1)!}{12(n-3).(n-4)!2!}) ≤5$ $b, \dfrac{n!}{6!(n-6)!} × \dfrac{n!}{5!(n-5)!} ≤ \dfrac{1}{(n-5)!}$

thuyết trình phở bằng tiếng anh

vẽ chữ chữ "Pé Mon 556K Follow" cute vào nhé có tâm nhé mn

Các bạn làm giúp mình ít nhất 1 bài nha mình cần gấp sáng mai rồi mình hứa sẽ tim và cảm ơn (hay nhất nhiều bài nhất)

vẽ anime NK : Xuống bl lấy link hộ iem vsssssss mn ơi

a,3x^2-2x+1 với |x|=0,5 b,|3x-1|+x-3 với|x|=1/3 Làm ơn giúp mk ạ , cảm ơn trước !

Giúp mình với !!!!!!!!!!!!!!!!!!

Giair chi tiết giúp mình với ạ mình sẽ vote 5 sao cho bạn trả lời đúng nhất Bài 1. Cho $\frac{1}{tan^2a}$ +$\frac{1}{cot^2a}$ +$\frac{1}{sin^2a}$ +$\frac{1}{cos^2a}$ =7 .Tính cos4a BÀI 2: Cho sina+cosa= cot$\frac{a}{2}$ với 0<a<$\pi$ .Tính tan($\frac{a+2013\pi}{2}$)

giúp mình với,mình cam ơn nhiều ạ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến