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 !
Những câu hỏi liên quan
viết chương trình tìm ước chung lớn nhất của hai số m và n biết rằng m và n là biếnd được nhập từ bàn phím
Var r,m,n:integer;
Begin
Write('m = ');readln(m);
Write('n = ');readln(n);
Repeat
r:=a mod b;
a:=b;
b:=r;
Until r = 0;
Write('UCLN(',m,',', ',n,') la ',r);
Readln;
End.
Đúng 0
Bình luận (0)
viết chương trình pascal tìm ước chung lớn nhất và bội chung nhỏ nhất của ba số a,b,c nhập từ bàn phím
uses crt;
var a,b,c,min,ucln,bcnn:longint;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
ucln:=1;
for i:=1 to min do
if (a mod i=0) and (b mod i=0) and (c mod i=0) then
begin
if ucln<i then ucln:=i;
end;
writeln('uoc chung lon nhat=',ucln);
bcnn:=a*b*c;
for i:=a*b*c downto 1 do
if (i mod a=0) and (i mod b=0) and (i mod c=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln('Boi chung nho nhat=',bcnn);
readln;
end.
Đúng 0
Bình luận (0)
SGK Chân trời sáng tạo - Trang 94
25 tháng 7 2023 lúc 10:37
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, bBướ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 tiếp
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. |
viết chương trình nhập hai số a,b từ bàn phím, in ra màn hình tất cả ước chung của a và b
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.
Đúng 2
Bình luận (0)
Viết chương trình nhập dãy n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và lớn nhất với n được nhập từ bàn phím
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
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('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
Đúng 0
Bình luận (0)
Program HOC24;
var a: array[1..32000] of integer;
i,max,min,n: integer;
begin
write('Nhap so phan tu N: '); readln(N);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('So nho nhat la :',max);
write('So lon nhat la: ',min);
readln
end.
Đúng 0
Bình luận (0)
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:f1f21fnfn-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 (1n30)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.
Đọc tiếp
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Đang cần gấp, mọi người giúp mình với ạ.
--Lậpchương trình tìm ước chung lớn nhất của dãy số nguyên A gồm N phần tử được nhập vào từ bàn phím.
Program HOC24;
var a: array[1..32000] of integer;
ucln,i,n,ucln1: integer;
function uc(x,y: integer): integer;
var tg: integer;
begin
while y<>0 do
begin
tg:=x mod y;
x:=y;
y:=tg;
end;
uc:=x;
end;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
ucln1:=uc(a[1],a[2]);
for i:=3 to n do ucln:=uc(ucln1,a[i]);
write('Uoc chung lon nhat cua day so la: ',ucln);
readln
end.
Đúng 1
Bình luận (0)
a) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.
b) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.
program hello;
uses crt;
Var n,i,j,k: integer;
a: array[1..50] of integer;
begin;
a[1]:=k;
Readln(n);
For i:=1 to n do
Begin;
Writeln('nhap a[',i,'] '); Readln(a[i]);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then k:=a[j];
Writeln('gia tri lon nhat la', k);
end.