program UCLN;
var
a, b, UCLN: integer;
begin
write('Nhập số a: ');
readln(a);
write('Nhập số b: ');
readln(b);
while a <> b do
begin
if a > b then
a := a - b
else
b := b - a;
end;
UCLN := a;
writeln('Ước số chung lớn nhất của ', a, ' và ', b, ' là ', UCLN);
end.
Viết chương trình nhập vào cân nặng của N hs trong một lớp N được nhập từ bàn phím . Tính cân nangwh trung bình của lớp , xuất kq ra màn hình. em cảm ơn ạ
a)Viết chương trình nhập vào bàn phím 100 số Fibonaci. Cho biết số Fibonaci thứ 100.
b)Viết chương trình nhập vào 20 số chẵn. Xuất ra màn hình số thứ 20.
(Mọi người giúp mình với! Mình cảm ơn nhiều)
Giúp em vs
Bài 1:Viết chương trình nhập vào một dãy số thực gồm N số (N được nhập từ bàn phím và N <=100). Tính tổng tất cả các phần tử và tính giá trị trung bình của các phần tử đó.
Bài 2:Tìm phần tử nhỏ nhất của một dãy số nguyên dương A1, A2,...,AN với N được nhập từ
bàn phím và N<=100.
Viết chương trình nhập vào từ bàn phím số nguyên n (n
. Viết chương trình nhập từ bàn phím số nguyên V(N
Viết chương trình nhập từ bàn phím số nguyên V(N
viết chương trình nhập mảng 1 chiều A gồm m số nguyên từ bàn phím. Đếm số lần xuất hiện của X trong mảng A. với X là số nguyên nhập từ bàn phím. Xất kết quả ra màn hình
