uses crt;
var m,n,s,i:integer;
begin
clrscr;
readln(n);
s:=0;
m:=1;
for i:=m to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
uses crt;
var m,n,s,i:integer;
begin
clrscr;
readln(n);
s:=0;
m:=1;
for i:=m to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
viết chương trình tính tổng các số chẵn nhỏ hơn hoặc bằng N với N là số tự nhiên được nhập vào từ bàn phím
S=2+4+6.......
Hãy viết CT tính TBC của các phần tử trong dãy số và đếm xem có bao nhiêu phần tử ở vị trí chẵn ( với độ dài của dãy số được nhập vào từ bàn phím ) giúp mình với ạ :3
Viết CT nhập vào số nguyên dương n(n được nhập giá trị từ bàn phím), sau đó thực hiện các yêu cầu sau: a, nếu n=0 thì yêu cầu nhập lại số n b, tính tổng các số chẵn từ 1 đến n vừa nhập c, tính tích các số lẻ từ 1 đến n vừa nhập D, in các giá trị vừa tính được ra màn hình
MỌI NGƯỜI ƠI GIÚP EM VỚI Ạ EM CẢM ƠN NHIỀU LẮM Ạ
Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.
MỌI NGƯỜI ƠI GIÚP EM VỚI Ạ EM CẢM ƠN NHIỀU LẮM Ạ
Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.
Viết chương trình in ra màn hình tổng các số chẵn nhỏ hơn hoặc bằng N và tổng các số lẽ nhỏ hơn hoặc bằng N. Với N là số tự nhiên N nhập từ bàn phím.
Ví dụ: -Input: n=6, {1,2,3,4,5,6}
- Output: - Tổng số chẵn: 12;
- Tổng số lẽ: 9;
Viết chương trình nhập vào 1 dãy số, có chiều dài là N với N được nhập từ bàn phím
a) Tính tổng của các phần tử trong dãy số
b) Tìm giá trị lớn nhất của dãy
c) Tìm giá trị nhỏ nhất của dãy
d) Tính tổng các phần tử chẵn trong dãy
e) Tính tổng các phần tử lẻ trong dãy
viết chương trình tính tổng các số chẵn nhỏ hơn hoặc bằng n với n là số nguyênđược nhập từ bàn phím .chỉ em đi em cần gấp :<
Viết CT nhập vào một mảng số nguyên gồm 10 phtử. Tính và in lên màn hình tổng các phtử trong mảng đã nhập. Giúp mik với ạ