Question

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

Answer 1

uses crt;

var t,i:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

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

writeln(t);

readln;

end.

Answer 2

*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.
Yên tâm vì nó đúng. Nếu có thể thì mong bạn check lại để an tâm hơn :D