uses crt;
var n,k,i,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln('Tong cac so chia het cho ',k,' trong day la: ',t);
readln;
end.
viết chương trình nhập từ bàn phím số nguyên dương N( N<=100) và dãy số nguyên A1,A2,...An có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình các thông tin sau :
a. Tổng số nguyên chẵn , tổng số nguyên lẻ của dãy số.
b.Tổng giá trị của dãy số .
ai giúp em với ạ, em xin cám ơn
Viết chương trình nhập từ bàn phím số nguyên n đưa ra màn hình tổng các số tự nhiên nhỏ hơn n và chia hết cho 2 và chia hết cho 3.
viết chương trình nhập số nguyên dương n và danh sách gồm n số nguyên a0, a1,....an-1. Hãy tính tổng các số nguyên lẻ trong dãy ?
mn giúp em với ạ em đang gấp :(
Nhập vào bàn phím mảng 1 chiều gồm N số nguyên:
1.In ra màn hình giá trị lớn nhất
2. Tính tổng các số chẵn các số chẵn có trong mảng
3. Thông báo có bao nhiêu số âm trong mảng
4. Tính tích các phần tử dương và chia hết cho 3
( mik cần gấp lém :(( )
Bài 1: Viết chương trình nhập số nguyên dương N a) Tính tổng các phần tử là các số chia hết cho 3 và nhỏ hơn N b) Tính trung bình cộng các phần tử là các số chia hết cho 3 và nhỏ hơn N
Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.
Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.
Giup mình với ạ! mình cảm ơn!
Viết chương trình nhập vào 3 số nguyên m,n,k (m<n).Đếm các số nguyên chia hết cho k trong đoạn [m,n]
Mn giúp e với ạ😭 e cảm ơn nhìu ạ
Viết chương trình nhập vào n số bất kì sau đó đưa ra màn hình số đó có 3 chữ số
