Question

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

Answer 1

*Với while..do
  Var a,b:integer;
     Begin
   a:=0; b:=0;
  While a<=10 do
Begin
 b:=b+a;
 a:=a+2;
end;
 Writeln('Vay tong cac so chan tu 1 den 10 la:',b);
Readln
End.

*Với for...do (đơn giản hơn chút)
Uses crt;
Var a,S:integer;
Begin
S:=0
For a:=1 to 10 do
Begin
If a mod 2 =0 then S:=S+a;
end;
Writeln('Vay tong cac so so chan tu 1 den 10 la',S);
Readln
End.
Viết a,b và a,S cả hai cách làm cho bạn dễ hình dung ạ! Sr for the late reply!