Viết chương trình nhập vào hai số nguyên a,b. In ra màn hình các ước chung của a và b. In ra bội chung nhỏ nhất của a và b. In ra ước chung lớn nhất của a và b.
Giúp mình với! Mai mình thi rồi.
Xin cảm ơn rất nhiều!!!
K
Khách
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.
Những câu hỏi liên quan
27 tháng 5 2021
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.
27 tháng 5 2021
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.
6 tháng 3 2023
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.
13 tháng 12 2020
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.
5 tháng 4 2022
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a+b);
writeln(a-b);
writeln(a*b);
writeln(a/b:4:2);
readln;
end.
31 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
long long i,a,b;
int main()
{
cin>>a>>b;
for (i=1; i<=min(a,b); i++)
if ((a%i==0) and (b%i==0)) cout<<i<<" ";
return 0;
}
30 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long ucln(long long a,long long b)
{
if (b==0) return(a);
else return(ucln(b,a%b));
}
//chuongtrinhchinh
int main()
{
cin>>a>>b;
cout<<ucln(a,b);
return 0;
}
8 tháng 9 2021
#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;
}
uses crt;
var a,b,i,bcnn,ucln:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until (a<>0) and (b<>0);
writeln('Uoc chung cua ',a,' va ',b,' la: ');
if a<b then
begin
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then write(i:4);
end;
if a>b then
begin
for i:=1 to b do
if (a mod i=0) and (b mod i=0) then write(i:4);
end;
if a=b then
begin
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then write(i:4);
end;
writeln;
bcnn:=a*b;
for i:=a*b downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln('Boi chung nho nhat cua ',a,' va ',b,' la: ',bcnn);
ucln:=1;
for i:=1 to a*b do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
writeln('Uoc chung lon nhat cua ',a,' va ',b,' la: ',ucln);
readln;
end.