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
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm