Найти сумму всех чётных чисел от 100 до 200 помогите (информатика циклы)

Question

Найти сумму всех чётных чисел от 100 до 200 помогите (информатика циклы)

Comments

На Паскале решу. Пойдет??

---

Да паскаль и нужен)

Answer 1

uses Crt; 
var i, Sum: integer;
begin 
ClrScr; 
Sum:=0; 
for i:=100 to 200 do   
   if (i mod 2)=0  then Sum:= Sum+i; 
WriteLn (' Sum = ', Sum);
ReadLn;
end.

Answer 2

Это арифметическая прогрессия а1=100, d=2 a51=200 Найти S51=(a1+a51)*51/2=7650

Comments

Но это МАТЕМАТИКА! А мы находимся в разделе ИНФОРМАТИКА!

---

Да((