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
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
16 tháng 2 2022
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
28 tháng 2 2021
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.
DT
17 tháng 2 2022
{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.
}
CM
28 tháng 8 2018
+ 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ử).
uses crt;
var m,n,t1,t2,i:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
until m<=n;
t1:=0;
t2:=0;
for i:=m to n do
begin
if i mod 2=0 then t1:=t1+i
else t2:=t2+i;
end;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t1);
writeln('Tong cac so le tu ',m,' den ',n,' la: ',t2);
readln;
end.