Viết chương trình tính tổng các số chẵn của N số tự nhiên đầu tiên
2 câu trả lời
Program tong;
Uses crt;
Var n,i,s: integer;
Begin
Write('nhap n:');readln(n);
S:=0;
For i:=1 to n do
If i mod 2=0 then s:=s+i;
Write('tong la:',s);
Readln;
End.
Program Hotboy;
Uses crt;
Var S,i,n: integer;
Begin
Clrscr;
S:=0;
Write('nhap n');
Readln(n);
For i:=1 to n do
If (i mod 2=0) then
S:=S+i;
Write('tong chan ',n,'so tu nhien dau tien la',S);
Readln
End.
