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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
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.
NA
Nguyễn An Ninh
VIP
12 tháng 5 2023
``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)
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.
LM
0
KV
28 tháng 4 2023
var a:array[1..1000] of integer;
i,n,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
write('So lon nhat la ',max);
readln
end.
C1:
var x,y,UCLN,BCNN:integer; begin readln(x,y);BCNN:=x*y; While x<>y do If x>y then x:=x-y else y:=y-x;
UCLN:=x;
BCNN:=BCNN div UCLN; write(UCLN,' ',BCNN);
end.
C2:
var x,y,UCLN,BCNN,t:integer; begin readln(x,y);BCNN:=x*y;
t:= y mod x;
While t <> 0 do
Begin
t:= x MOD y;
x:= y;
y:= t;
End; ucln:=x;
BCNN:=BCNN div UCLN; write(UCLN,' ',BCNN);
end.