viết chương trình tính tổng các số chẵn của 10 số tự nhiên đầu tiên mn ui nhớ giúp vs nha TT.TT 14/08/2021 Bởi Audrey viết chương trình tính tổng các số chẵn của 10 số tự nhiên đầu tiên mn ui nhớ giúp vs nha TT.TT
var i,kq: byte; begin for i:=1 to 10 do if i mod 2 =0 then kq:=kq+i; write(‘Ket qua: ‘,kq); readln; end. Bình luận
program oken; uses crt; var i,s: integer; begin s:=0; for i:=1 to 10 do if (i mod 2=0) then s:=s+i; writeln(‘Tong S: ‘,s ); readln; end. Bình luận
var i,kq: byte;
begin
for i:=1 to 10 do
if i mod 2 =0 then kq:=kq+i;
write(‘Ket qua: ‘,kq);
readln;
end.
program oken;
uses crt;
var i,s: integer;
begin
s:=0;
for i:=1 to 10 do
if (i mod 2=0) then s:=s+i;
writeln(‘Tong S: ‘,s );
readln;
end.