viết ct tính tổng S=2+4+6+8+...+100

2 câu trả lời

Đáp án + Giải thích các bước giải:

Công thức tính tổng `S=2+4+6+8+...+100`

Program Tinh tong;
Uses Crt;
Var a,b:integer;
Begin
Clrscr;
a:=0;
For b:=1 to 100 do
If b mod 2=0 then a:=a+b;

Writeln('Tong cua day so tren la: ',a);
readln;
End.