Lời giải:
program hotrotinhoc;
var a,b : integer;
Function UCLN(x,y: integer): integer;
var z: integer;
begin
while y<>0 do
begin
z:= x mod y;
x:=y;
y:=z;
end;
ucln:=x;
end;
begin
readln(a);
readln(b);
write(ucln(a,b));
readln
end.
xđtt
giải pt bậc nhất ax+b=0 (a+0)
xđtt
cho dãy số nguyên a1....an, phân tử k, đếm xem có bao nhiêu phân tử giống k
Cho 2 số nguyên dương a b và x hãy viết chương trình đếm số lượng số chia hết cho x trong đoạn AB
cho dãy A gồm N số nguyên A1,A2,...,An. hãy viết thuật toán theo phương pháp liệt kê cho các câu hỏi saua, tính tổng các số dương trong dãy Ab,tính tổng bình phương các số chia hết cho 2 trong dãy Ac,đếm số lượng các số là ước của 3d,tính tích các số là số lẻ, số chẵn d, đếm số lượng các số chia hết cho 2 và 5mọi người mỗi người giúp em 1 phần được không ạ:(( em cảm ơn
Câu 1. Nhập số N nguyên dương và dãy N số nguyên từ bàn phím
-in ra dãy số nhập (các số in trên 1 dòng cách nhau bởi dấu cách
-tính tổng các số trong dãy chia hết cho 3, in hết kết quả ra màn hình
GIÚp mik vs ạ!!!!
Cho số nguyên N và dãy a1..aN,tìm 100 số lẻ đầu tiên và tính tổng của chúng
Mô tả thuật toán và nêu ý tưởng
1.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá số lớn nhất có trong dãy vừa nhập. trị 2.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá trị số nhỏ nhất có trong dãy vừa nhập. 3. Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, tính và thông báo ra màn hình tổng các số có giá trị là chẵn có trong dãy vừa nhập. 4. Viết chương trình nhập vào hai xâu bất kỳ, thông báo ra màn hình xấu có độ dài ngắn hơn, nếu bằng nhau thì đưa ra xâu nhập sau. 5. Viết chương trình nhập vào một xâu, in ra màn hình xấu đó nhưng được viết theo thứ tử ngược lai
Viết chương trình nhập vào 3 số nguyên a,b,c và đưa ra màn hình giá trị lớn nhất của 3 số đó (sử dụng câu lệnh if)
