tính tổng các số chẵn từ m đén n
Tính tổng các số lẻ từ m dến n
Giúp mik vs mn ơi
Viết chương trình tính tổng các số chẵn từ 1->n
Viết chương trình tính tổng các số lẻ từ 1->n
Giúp em với ạ:))em cảm ơn!!
Viết chương trình tính tổng các số chẵn từ 1->n
Uses CRT;
Var i,n,s:integer;
Begin clrscr;
Write('Nhap so n= ');Readln(n);
S:=0;
For i:=1 to n do
If i mod 2 = 0 do S:=S+i;
Writeln;
Write('tong cac so chan la ',S);
Readln;
End.
Viết chương trình tính tổng các số lẻ từ 1->n
program bai1;
var s,i,n:longint;
begin write('N= ');
readln(n); s:=0;
for i:=1 to n do if i mod 2<>0 then s:=s+i;
write('s= ',s);
readln
end.
Chúc em học tốt
câu 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
hoa tính tổng các số chẵn từ 2 đén 100 bạn lan tính tỏng các số lẻ từ 1 đến 99 mai lấy kết quả của hoa trừ đi kết quả của lan thì được bao nhiêu
Kết quả bằng 0.
kick cho mình nha
trong dãy số tự nhiên từ 1 đén 1000 , tổng các chữ số của các số chẵn và tổng các chữ số của các số lẻ . Thì tổng nào lớn hơn và lớn hơn bao nhiêu
Đề bài: vct tính tổng các số chẵn, số lẻ từ 1-n ( được nhập từ bàn phím), sau đó in tổng chẵn, tổng lẻ ra màn hình
Tính tổng các số lẻ liên tiếp từ số a dến b
Viết chương trình tính tổng các số chẵn và các số lẻ từ 1 đến N.Với N nhập từ bàn phím.
Ví dụ: Nhập N=5 thì kết quả: Tổng các số từ 1 đến N là 6,Tổng các số lẻ là 9
{PROGRAM Bai_tap1;
USES crt;
VAR n, i, C, L:Bytbe;
BEGIN
clrscr;
Write('Nhap n:');Readln(n);
C:=0;L:=0;
For i:=1 to n do
If i mod 2=0 then C:=C+i else L:=L+i;
writeln('Tong cac so chan la:',C);
writeln ('Tong cac so le la:',L);
Readln;
end.
}
Tập hợp C = {8, 10, 12, ..., 30} có (30 - 8) : 2 + 1 = 12 (phần tử).
Tổng quát:
- Tập hợp các số chẵn từ số chẵn a đến số chẵn b có (b - a) : 2 + 1 phần tử
- Tập hợp các số lẻ từ số lẻ m đến số lẻ n có (n - m) : 2 + 1 phần tử
Hãy tính số phần tử của các tập hợp sau:
D = {21, 23, 25, ..., 99}
E = {32, 34, 36, ..., 96}
+ Tập hợp D = {21 ; 23 ; 25 ;……. ; 99} là tập hợp các số lẻ từ 21 đến 99
Nên D có (99 – 21) : 2 + 1 = 78 : 2 + 1 = 39 + 1 = 40 (phần tử).
+ Tập hợp E = {32 ; 34 ; 36 ; … ; 96} là tập hợp các số chẵn từ 32 đến 96
Nên E có (96 – 32) : 2 + 1 = 64 : 2 + 1 = 32 + 1 = 33 (phần tử).
Tính tổng các chữ số của các số lẻ chẵn từ 1 đến 100 và xem tổng của của 2 loại số chẵn ,số lẻ hơn kém nhau bao nhiêu