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