Viết chương trình tính tổng các số chẵn trong khoảng từ 1 đến n (n nguyên dương nhập từ bàn phím) xin cảm ơn ạ!!!
2 câu trả lời
program tinhtong;
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
write('Tong cac so chan tu 1 den ',n,' la: ',t);
readln;
end.
Program tong_so_chan;
Uses crt;
Var
S,N,I:Integer;
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('Tong cac so chan la ',S);
Readln;
End.
