uses crt;
var x,y,r:longint;
begin
clrscr;
write('Nhap x: ');readln(x);
write('Nhap y: ');readln(y);
while y<>0 do
begin
r:=x mod y;
x:=y;
y:=r;
end;
write('Uoc chung lon nhat cua 2 so tren la: ',x);
readln
end.
xác định bài toán và xây dựng thuật toán
1. tìm ước chung lớn nhất của hai số a, b
2. tìm bội chung nhỏ nhất của 2 số nguyên dương a,b
Bài 1: Viết thuật toán tìm giá trị lớn nhất của hai số nguyên dương M, N nhập từ bàn phím.
Bài 2: Kiểm tra số nguyên A có là số chẵn hay không?
Viết thuật toán nhập vào 2 số M và N thuộc kiểu số nguyên.
a. Tìm ước chung lớn nhất của 2 số M và N.
b. Tìm bội chung nhỏ nhất của 2 số M và N.
giúp mình viết thuật toán tìm bội số chung nhỏ nhất của 2 số A và B , biết A và B nguyên dương . Mình cảm ơn ạ
➙Exercise 1: Viết thuật toán bằng 2 cách. Cho bài toán "Tìm ước chung lớn nhất của 2 số nguyên dương".
➜Exercise 2: Viết thuật toán bằng 2 cách. Cho bài toán "Tìm giá trị lớn nhất của 1 dãy số bất kì".
(*Note: Viết bằng 1 cách cũng được luôn ạ. Help✔)
Cho số N nguyên dương và dãy số nguyên A gồm a1, a2,.....,an.
Hãy viết thuật toán
a) đưa ra màn hình tổng số các giá trị trong dãy
(Ví dụ: nhập n=4
Dãy A: 3 6 2 1 đưa ra màn hình tổng số bằng 12 <dạng> )
b) Đưa ra màn hình vị trí chứa giá trị lớn nhất. Nếu có 2 GTLN thì dưa ra vị trí nhỏ nhất chứa GTLN.
Xây dựng thuật toán giá trị lớn nhất và giá trị nhỏ nhất của 2 số nguyên tố x,y
Nhập vào 2 số nguyên dương a, b. Hãy viết thuật toán tìm UCLN. (Vẽ bằng sợ đồ khối)
Cảm ơn vì đã giúp mình!!!
Nhập vào 2 số nguyên dương a, b. Hãy viết thuật toán tìm UCLN.( Vẽ bằng sơ đồ khối)
Thank mọi người vì đã giúp mình!!!
