In ra màn hình các số chẵn và tính tổng các số đó ( từ 5 –> 100) 18/07/2021 Bởi Julia In ra màn hình các số chẵn và tính tổng các số đó ( từ 5 –> 100)
program bt; uses crt; var i,t:integer; begin clrscr; t:=0; for i:=5 to 100 do if i mod 2 = 0 then t:=t+i; writeln(t); readln; end. Bình luận
program bt;
uses crt;
var i,t:integer;
begin clrscr;
t:=0;
for i:=5 to 100 do
if i mod 2 = 0 then t:=t+i;
writeln(t);
readln;
end.