Viết chương trình tính tổng sau:
S= 50+52+54+.....+400
Giúp mình với mọi người ơi, ai chắc chắn đúng hãy giúp ạ, bài ktra 15 phút Tin của mình đó ạ:<<.
Program viet_chuong_trinh_tinh_tong; Uses Crt; Var i,s:integer; Begin Clrscr; i:=2; While (i>50) and (i<=400) do Begin s:=s+i; i:=i+2; End; Writeln(S); Readln; End.