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
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