Question

Viết chương trình tính tổng các số chẵn số tự nhiên từ 1 đến 100.

Answer 1

Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

Answer 2

Var i : integer;

S : real;

Begin

For i:=1 to 100 do

S:=0;

If i mod 2 = 0 then S := S+ i;

Write (S);

Readln;

End.

Answer 3

program bai1;

var s,i:longint;

begin

s:=0;

for i:=1 to 100 do

if i mod 2=0 then s:=s+i;

write('s= ',s);

readln

end.