Viết chương trình pascal tìm ước chung lớn nhất và bội chung nhỏ nhất của hai số a và b được nhập từ bàn phím Làm giúp với !
uses crt;
var a,b,ucln,bcnn,i:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
ucln:=1;
if a<b then begin
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then begin
if ucln<i then ucln:=i;
end;
end else begin
for i:=1 to b do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln('Uoc chung lon nhat la: ',ucln);
writeln('Boi chung nho nhat la: ',bcnn);
readln;
end.
Giúp mình viết chương trình với ctc với ạ
Câu 1: Tìm ước chung lớn nhất của 2 số m,n nguyên dương?
Câu 2: Tìm bội chung nhỏ nhất của 2 số m,n nguyên dương?
Câu 1:
uses crt;
var m,n,ucln,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
ucln:=1;
if m<n then
begin
for i:=1 to m do
if (m mod i=0) and (n mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end
else begin
for i:=1 to n do
if (m mod i=0) and (n mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
writeln(ucln);
readln;
end.
Câu 2:
uses crt;
var m,n,bcnn,i:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
bcnn:=m*n;
for i:=m*n-1 downto 1 do
if (i mod m=0) and (i mod n=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln(bcnn);
readln;
end.
BCNN:
program boichung;
var m,n: word;
procedure Input;
begin
readln(m,n);
end;
function BC(m,n: word): word;
var i: word;
begin
for i := 1 to n * m do
if (i mod n = 0) and (i mod m = 0) then
write(i,' ');
end;
begin
Input;
BC(m,n);
end.
UCLN:
program UCLN;
var m,n,r,i: longint;
begin
readln(n,m);
n := abs(n);
m := abs(m);
if (n = 0) then
begin
i := 1;
write(m);
end
else
if (m = 0) then
begin
i := 1;
write(n);
end;
r := n mod m;
while r <> 0 do
begin
r := n mod m;
n:= m;
m:= r;
end;
if (i = 0) then
write(n);
readln
end.
Đề bài : Không cần phân tích ra thừa số nguyên tố hãy tìm :
a) Bội chung nhỏ nhất của 152 và 364. Biết Ước chung lớn nhất bằng 36.
b) Bội chung nhỏ nhất của 15 và 125).Biết Ước chung của 15 và 25 bằng 5
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 6=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,b,c,ucln,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
ucln:=a;
while ucln<>c do
begin
if ucln>c then ucln:=ucln-c
else c:=c-ucln;
end;
writeln(ucln);
readln;
end.
Scratch hay java
a) Nhập vào hai số nguyên a và b (1≤ a,b ≤ 109). Tính và in lên màn hình ước chung lớn nhất(UCLN) v à bội chung nhỏ nhất (BCNN) của a,b.
b)Dãy số fibonacy được định nghĩa như sau:
f1=f2=1
fn=fn-1+fn-2 (với n >=3)
Hãy viết chương trình in ra n số đầu tiên của dãy fibonacy.
Dữ liệu nhập:là số nguyên n (1<=n<=30)
Dự liệu xuất: là n số fibonacy đầu tiên trên cùng một dòng, mỗi số cách nhau một khoảng trắng.
a)
program UCLN_va_BCNN;
uses crt;
var a,b,c,r,p:integer;
begin
clrscr;
write('nhap a,b:');readln(a,b);
if a<b then
begin
c:=a;
a:=b;
b:=c;
end;
p:=a*b;
r:=a mod b;
while r<>0 do
begin
a:=b;
b:=r;
r:=a mod b;
end;
writeln('UCLN la: ',b);
writeln('BCNN la: ',p div b);
readln;
end.
b)
program fibonaci;
uses crt;
var i,n:integer;
a:array[1..30]of integer;
begin
clrscr;
repeat
write('nhap n:');readln(n);
if (n<1)or(n>30) then writeln('so n phai lon hon hoac bang 1 va nho hon hoac bang 30:);
until (n>=1)and(n<=30);
a[1]:=1;
a[2]:=1;
for i:=3 to n do
a[i]:=a[i-1]+a[i-2];
writeln(n,' so fibonaci dau tien la:');
for i:=1 to n do
write(a[i]:3);
readln;
end.
Tìm hai số tự nhiên có hiệu là số dương nhỏ nhất có thể sao cho ước chung lớn nhất và bội chung nhỏ nhất của chúng có tổng là 126.
câu trả lời là mới hok lp 5 sang năm lên lp 6 :)
Gọi 2 số đó là a và b, ƯCLN(a,b)=d
=>a=da'
b=db'
(a',b')=1
BCNN(a,b)=da'b'
Tổng ƯCLN và BCNN là d+da'b'=d(a'b'+1)=126
126 phân tích ra thừa số nguyên tố là 2.32.7
Do đó d=2 hoặc a'b'+1=2
Nếu d=2 thì a'b'+1=126:2=63
a'b'=62. Giả sử a>b thì a'>b'
TH1: a'=31, b'=2 =>a=31.2=62, b=2.2=4. a-b=58
TH2 a'=62, b'=1 =>a=62.2=124, b=2. a-b=122.
Hiệu nhỏ nhất nếu d=2 là 58
Tiếp theo ta xét
a'b'+1=2
a'b=1
=>a'=b'=1
Khi đó d=126:2=63
Ta có a=63, b=63
a-b=0
Tuy nhiên đề bài yêu cầu tìm hiệu dương mà số 0 ko dương cũng ko âm
Vậy 2 số cần tìm là 62 và 4
Hình như mình làm sai. Đợi mình nghĩ lại nha
Số nguyên dương p𝑝 gọi ước số chung lớn nhất của n𝑛 𝑣à m𝑚 khi m𝑚 𝑣à n𝑛 cùng chia hết cho p𝑝 và p𝑝 là lớn nhất. Viết chương trình nhập vào hai số nguyên dương n,m𝑛,𝑚 (n,m≤1000.000.000.000𝑛,𝑚≤1000.000.000.000). Hãy in ra ước số chung lớn nhất của n𝑛 𝑣à m𝑚.
Input:
Hai số nguyên dương n,m𝑛,𝑚,
Output:
In ra ước số chung lớn nhất của chúng
Ví dụ
Input
Copy
54 72
Output
Copy
18
Lưu ý: Viết bằng C++ dùng for hoặc while
#include <iostream>
using namespace std;
int main()
{
int t,m,n,ucln;
cout<<"Nhap n="; cin>>n;
cout<<"Nhap m="; cin>>m;
t=m%n;
while (t!=0)
{
t=n%m;
n=m;
m=t;
}
ucln=n;
cout<<ucln;
return 0;
}
Tạo chương trình Scratch để đưa ra ước số chung lớn nhất (ƯCLN) của 2 số nguyên dương a, b được nhập từ bàn phím (xem gợi ý ở Bảng 9).
Bảng 9. Thuật toán tìm ước chung lớn nhất của 2 số nguyên dương a, b
Bước 1. Nhập số nguyên dương a, b. Bước 2. Nếu a = b thì lấy giá trị a làm ƯCLN rồi chuyển đến bước 5. Bước 3. Nếu a > b thì thay a = a – b, ngược lại thay b = b - a. Bước 4. Quay lại bước 2. Bước 5. Đưa ra kết quả ƯCLN rồi kết thúc. |
Câu 1: Tìm ước chung lớn nhất của 2 số m,n nguyên dương,tìm bội chung nhỏ nhất của 2 số m,n nguyên dương?
nhanh nhanh mik với nhe
#include <bits/stdc++.h>
using namespace std;
long long m,n;
//chuongtrinhcon
long long ucln(long long m,long long n)
{
if (n==0) return(m);
else return(ucln(n,m%n));
}
//chuongtrinhchinh
int main()
{
cin>>n>>m;
cout<<ucln(n,m);
return 0;
}
