Question

Viết phương trình tính tổng các số chẵn từ 1 đến N với N là một số bất kì (N\(\ge\)0) được nhập vào từ bàn phím.

Answer 1

program bai1;

var n,i,s:longint;

begin

repeat

write('N= ');

readln(n)'

until n>0;

for i:=1 to n do

if i mod2=0 then s:=s+i;

write('...');

readln

end.

Answer 2

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.