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 nhập từ bàn phím)
Sử dụng lệnh:+ For…do
+ While…do
Đang cần gấp mai thi rồi cảm ơn nhiềuuuuu!!!
Tặng hết điểm rồi đó
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 nhập từ bàn phím)
Sử dụng lệnh:+ For…do
+ While…do
Đang cần gấp mai thi rồi cảm ơn nhiềuuuuu!!!
Tặng hết điểm rồi đó
var n,i,s: longint:
begin
read(n)
s:=0
for i:=1 to n do if i mod 2=0 then s:=s+i
write(s)
end.
mình trình bày for…do
nhớ cho mik ctlhn nhé
Mình trình bày While…do
program tinhtong_n;
uses crt;
var i,n:integer;
S:Longint;
begin
clrscr;
write(‘Nhap N = ‘);
readln(n);
S:=0;
i:=0;
While i$\leq$ n do
begin
i:=i+1;
if i mod 2 = 0 then S:= S + i;
end;
writeln;
readln;
end.