sử dụng vòng lặp for...do em hãy viết chương trình tính tổng của 100 số tự nhiên chẵn đầu tiên ? In lên màn hình kết quả của phép tính

2 câu trả lời

Program BTH;
Uses Crt;
var a,b:longint;
Begin
clrscr;
For a:=1 to 200 do
If a mod 2=0 then
b:=b+a;
writeln('Tong 100 so duong dau tien la: ',b);
readln;
end.

program Min;
uses crt;
var i,S:integer;
begin
   clrscr;
   S:=0;
   for i:=1 to 200 do if i mod 2 = 0 then S:=S+i;
   write('Tong cua 100 so tu nhien chan dau tien la: ',S);
   readln
end.