Question

viết chương trình tính tổng các số lẻ trong khoảng từ 1 đến 200

Answer 1

proram bai1;

var s,i:longint;

begin

s:=0;

for i:=1 to 200 do

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

write('S= ',s);

readln

end.

Answer 2

Program Tinhtongsole;
Uses Crt;
Var i, Tong: longint;
Begin
Clrscr;
Tong:=0;
For i := 1 to 199 do
If i mod 2 = 0 then;
Tong:= Tong+i;
Writeln('Ket qua',Tong);
Readln;
End.

Answer 3

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.