Question

Hãy viết chương trình tính tổng các số chẵn từ 1 đến 200

Answer 1

program tinh_tong;

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 200 do

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

write(t);

readln;

end.

Answer 2

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

Answer 3

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

i:=2;

while i<=200 do

begin

t:=t+i;

i:=i+2;

end;

writeln(t);

readln;

end.