Question

составьте программу для вычисления суммы всех четных чисел от 6 до 36 паскаль

Answer 1

Ответ:

var i, s: integer; 

begin 

s:=0; 

for i:=6 to 36 do 

if (i mod 2 = 0) then s:=s+i; 

end;

Answer 2

begin

 (6..36).Step(2).Sum.Print

end.