Cho em hỏi đề bài viết chương tính tổng các số tự nhiên nhỏ hơn hoặc bằng N
Sao cho tổng đó bé hơn hoặc bằng 0
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;
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 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.......
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
write(t);
readln;
end.
Bàng cách chỉ ra tính chất đặc trưng cho các phần tử, hãy viết các tâp hộp sau:
Bài 1: Các số tự nhiên khác 0 và nhỏ hơn hoặc bằng 23.
Bài 2: Các số tự nhiên lớn hơn hoặc bằng 20 và nhỏ hơn hoặc bằng 28.
B1:
A= {A E N* | A<= 23}
B2:
B= {B E N | B >= 20 | B <= 28 }
tính tổng của các sô tự nhiên là bội của 3 sao cho tổng đó bé nhất và lớn hơn hoặc bằng 12
tính tổng các số tự nhiên sao cho tổng này nhỏ nhất và lớn hơn hoặc bằng 10 tin 10 python
n = 4
tong = sum(range(1, n+1))
print("Tổng các số từ 1 đến", n, "là:", tong)
n = int(input("Nhập giá trị n: "))
tong = sum(range(1, n+1))
print("Tổng các số từ 1 đến", n, "là:", tong)
viết chương trình tính tổng các số chẵn từ nhỏ hơn hoặc bằng n
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap n: '); readln(n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
write('Ket qua: ',t);
readln
end.
viết chương trình tính tổng n các số lẻ nhỏ hơn hoặc bằng n bằng
-for do
-while do
for ... do
program Tinh_S;
uses crt;
var i,n:byte;
S:longint;
begin
writeln('Nhap so n='); readln(n);
S:=0;
for i:=1 to n do
if i mod 2=1 then S:=S+i;
writeln('Tong cac so le nho hon hoac bang n la, S=',S)
readln
end.
* While....do
Uses crt;
var n,i,k: integer;
begin clrscr;
readln(n);
i:=0;
while(i<=n) do begin
i:=i+1;
if(i mod 2<>0) then k:=k+i;
end;
writeln(k);
readln;
end.
* for...do
Uses crt;
var n,i,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2<>0) then u:=u+i;
writeln(u);
readln;
end.
while... do
program Tinh_P;
uses crt;
var i,n:byte;
P:longint;
begin
writeln('Nhap so n='); readln(n);
P:=0; i:=1;
while i<=n do
begin
if i mod 2=1 then P:=P+i;
i:=i+1;
end;
writeln('Tong so le nho hon hoac bang n la, P=',P);
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ố nguyênđược nhập từ bàn phím .chỉ em đi em cần gấp :<