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
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
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.