Viết chương trình tính tổng các số chẵn trong phạm vi từ 1 đến 30
2 câu trả lời
uses crt;
var a,b:longint;
begin
clrscr;
For a:=1 to 30 do If a mod 2=0 then inc(b,a);
Writeln(b);
readln
end.
Program BTT;
Uses crt;
Var s,i: longint;
Begin
Clrscr;
s:=0;
For i:=1 to 30 do
If i mod 2 = 0 then s:=s+i;
Write('Tong la: ',s);
Readln
End.
