viết chương trình nhập 2 số tự nhiên m, n từ bàn phím, in ra màn hình. a) tất cả các ước chung của m và n. b)_ UCLN,BCNN của m và n
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program TongUoc;
uses crt;
var
N, i, Tong: integer;
begin
clrscr;
Tong := 0;
write('Nhap so tu nhien N: ');
readln(N);
// Tinh tong cac uoc cua N
for i := 1 to N do
begin
if N mod i = 0 then
begin
Tong := Tong + i;
end;
end;
writeln('Tong cac uoc cua ', N, ' la: ', Tong);
readln;
end.
program UocChung;
var
a, b, i: integer;
uocchung: array[1..100] of integer;
n: integer;
begin
write('Nhap a=');
readln(a);
write('Nhap b=');
readln(b);
n := 0;
for i := 1 to 100 do
if (a mod i = 0) and (b mod i = 0) then
begin
uocchung[n] := i;
n := n + 1;
end;
write('Uoc chung cua ', a, ' va ', b, ' la: ');
for i := 0 to n-1 do
write(uocChung[i], ' ');
readln;
end.
Bài 2:
#include <bits/stdc++.h>;
using namespace std;
int main();
{
long m,n;
cout<<"Nhap m="; cin>>m;
cout<<"Nhap n="; cin>>n;
cout<<m*n-2;
return 0;
}
``python
def UCLN(a, b):
if b == 0:
return a
else:
return UCLN(b, a % b)
a = int(input("Nhập số nguyên a: "))
b = int(input("Nhập số nguyên b: "))
benn = (a * b) // UCLN(a, b)
print("BCNN của", a, "và", b, "là:", bann)
program bai_toan;
var
N, i, sum: integer;
begin
write('Nhap so N: ');
readln(N);
write('Cac uoc cua ', N, ' khong ke ', N, ' la: ');
for i := 1 to N - 1 do
if N mod i = 0 then
write(i, ' ');
writeln;
sum := 0;
for i := 1 to N - 1 do
begin
if N mod i = 0 then sum := sum + i;
end;
if sum = N then writeln(N, ' la so hoan hao')
else writeln(N, ' khong phai la so hoan hao');
writeln;
writeln('Tat ca so hoan hao trong pham vi 1 -> ', N, ' la:');
for i := 1 to N do
begin
sum := 0;
for j := 1 to i - 1 do
begin
if i mod j = 0 then sum := sum + j;
end;
if sum = i then writeln(i);
end;
readln;
end.
làm ơi cíuuuu
Tham Khảo: