Program HOC24;
var i: byte;
t: integer;
begin
t:=0;
for i:=25 to 50 do if (i mod 5=0) and (i mod 2=1) then t:=t+i;
write('Tong la: ',t);
readln
end.
Viết chương trình đếm xem có bao nhiêu số chia hết cho 3 và cho 4 trong khoảng 0 -->10000 , tính tổng của các số này .
Mình cần gấp ạ :(( mn giúp mình với , cảm ơn ạ
Đề: Viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ \(a_1\) , \(a_2\) , ... , \(a_n\) . In ra màn hình tổng các số lẻ có trong dãy số.
P/S: Mọi người giúp mình với, mình đang cần gắp lắm ạ!
MÌNH CẦN GẤP Ạ, MAI THI RỒI :(( 1. Viết chương trình tính tổng và tích các số chia hết cho 3 trong dãy số N. 2. Viết chương trình đếm xem trong dãy số N có bao nhiêu số chẵn và tính tổng các số chẵn đó. 3. Viết chương trình đếm có bao nhiêu số chẵn hoặc lẻ trong dãy số N rồi tính tổng và tích của các số chẵn và lẽ đó. Mong mọi người giúp mình :((
1/viết chương trình nhập dãy số gồm 10 số nguyên dương.In ra màn hình số bé nhất (Min)
2/viết chương trình nhập dãy số gồm n số nguyên.
a. Tính tổng các phần tử của dãy.
b. In ra màn hình các phần tử là số chẵn hoặc lẻ.
[Giúp mình với mình đang cần gấp mai là mình thì rồi. Cảm ơn mn trước ạ]
Viết chương trình nhập vào n số nguyên in ra màn hình tổng các số đó (giúp mình với ạ mình đang cần gấp)
Viết chương trình nhập vào số nguyên n và tính tổng các số lẻ (các số lẻ là số không chia hết cho 2) trong khoảng từ 1 đến n ( ví dụ nhập = 10, ta sẽ có tổng sau s=1+3+5+7+9=25)
viết chương trình tính tích 50 số nguyên đầu tiên
giúp mình với ạ mình đang cần gấp
Viết chương trình tính tổng sau:
S = 1 + 1.2 + 1.2.3 + 1.2.3.4 + …+ 1.2…N Với N là số nguyên nhập vào từ bàn phím
giúp mình với ạ, mình đang cần gấp
Viết chương trình in ra các số tự nhiên lẻ trong phạm vi n, với n nhập từ bàn phím. Vd: nhập n =8 In ra 1 3 5 7. Giúp mình vs ạ
