Tin học Lớp 8: Dùng lệnh lặp. Tính tổng S = 2 +4 + 6 +…+100, giúp em giải bài này ạ, em cảm ơn thầy cô và các bạn nhiều.
Tin học Lớp 8: Dùng lệnh lặp. Tính tổng S = 2 +4 + 6 +…+100, giúp em giải bài này ạ, em cảm ơn thầy cô và các bạn nhiều.
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;
readln;
End.