Sử dụng câu lệnh while…do để tính tổng các số tự nhiên chẵn từ 2 đến 100 18/07/2021 Bởi Lyla Sử dụng câu lệnh while…do để tính tổng các số tự nhiên chẵn từ 2 đến 100
Program Giang; Var i,S:integer; Begin i:=2; While i<=100 do If i mod 2 = 0 then S:= S+i; Writeln(‘ tong cac so chan :’,S); Readln; end. Bình luận
Program Giang;
Var i,S:integer;
Begin
i:=2;
While i<=100 do If i mod 2 = 0 then S:= S+i;
Writeln(‘ tong cac so chan :’,S);
Readln;
end.
chạy được nhé