Question

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

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.