sử dụng vòng lập không xác định, viết chương trình tính tổng các số chẵn từ 1đến100
sử dụng vòng lập không xác định, viết chương trình tính tổng các số chẵn từ 1đến100
By Mackenzie
By Mackenzie
sử dụng vòng lập không xác định, viết chương trình tính tổng các số chẵn từ 1đến100
Program Hotboy;
Uses crt;
Var S,i: integer;
Begin
Clrscr;
S:=0; i:=1;
While i<=100 do
If (i mod 2=0) then
S:=S+i;
Write(‘tong chan tu `1` den `100` la’,S);
Readln
End.
Program Tongchan;
Uses crt;
Var S,i: integer;
Begin
Clrscr;
S:=0; i:=1;
While i<=100 do
If (i mod 2=0) then
S:=S+i;
Write(‘tong chan la’,S);
Readln
End.