Cho hai số nguyên dương M và N. Hãy tìm tất cả những bội chung của M và N sao cho các bội này đều nhỏ hơn hoặc bằng tích M*N.
Input: Hai số nguyên dương M và N (M,N <= 30000).
Output: Đưa ra mọi số là bội chung của M và N.
Cho hai số nguyên dương M và N. Hãy tìm tất cả những bội chung của M và N sao cho các bội này đều nhỏ hơn hoặc bằng tích M*N.
Input: Hai số nguyên dương M và N (M,N <= 30000).
Output: Đưa ra mọi số là bội chung của M và N.
Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.
Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.
Giup mình với ạ! mình cảm ơn!
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? Làm bằng pascal nhe
nhanh nhanh mik với nhe
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? Làm bằng pascal nhe
nhanh nhanh mik với nhe
uses crt;
var a:array[1..250]of integer;
n,i,t,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac so la boi cua 3 la: ',t);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
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;
}
tìm mọi cặp số nguyên dương (M;N) thỏa mãn tất cả các điều kiện:
1) M và N là những số nguyên dương có bốn chữ số;
2) M và N là những số chính phương;
3) Chỉ có hai cặp số tương ứng ở cùng một vị trí của M và N bằng nhau;
4) Với các chữ số còn lại, chữ số của M lớn hơn chữ số tương ứng cùng vị trí của N là 1 đơn vị
Ví dụ (M;N)=(2601;2500)
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 3. Tổng số lẻ Tên file: sumodd.***
Cho số nguyên dương n. Em hãy tính tổng các số nguyên dương nhỏ hơn hoặc bằng n.
Input: - một dòng duy nhất chứa số nguyên dương n.
Output: - một dòng tổng của các số nguyên dương lẻ <= n.
Ví dụ:
Input | Output |
7 | 16 |
10 | 25 |
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++) if (i%2!=0) t+=i;
cout<<t;
return 0;
}