Question

[Tiểu cường]

Viết chương trình in ra tổng các số chẵn trong khoảng từ 10 đến 30( sử dụng for...do)

Answer 1

[Kiều Vũ Linh]

Var i,s:integer;

Begin

For i:=10 to 30 do

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

Write('Tong la ',s);

Readln;

End.