var
m,n,i,t:integer;
begin
readln(n);
repeat
readln(m);
Until m<n;
for i:=m to n do
if i mod 2=0 then t:=t+i;
write('tong cac pt chia het cho 2 la:',t);
readln
end.
Giúp mình với ạ
Nhập vào dãy số nguyên có n phần tử (n<=52). Nhập vào một số nguyên k, đếm xem trong dãy có bao nhiêu số chia hết cho k. Kiểm tra lượng số chia hết cho k là chẵn hay lẻ
giả sử trong chương trình cần các biến thực A,B,C,D,X1,X2 và các biến nguyên M,N
Cho dãy số nguyên A1,...An (N<= 100 ) và số tự nhiên K. Hãy lập trình
+) nhập N , dãy A1,...An và K
+) Tính và đưa ra màn hình tổng các số chia hết cho K có trong dãy
Giúp mình em với ạ
Em cảm ơn
Nhập 2 số M và N từ bàn phím tính tổng các số chẵn từ M đến N
Giúp mk vs ạ
Viết chương trình tính giai thừa của n với n được nhập từ bàn phím
