Question

Паскаль. Найти сумму четных чисел от 15 до 100.

Answer 1

var

 i, k: integer;

begin

 k := 0;

 for i:=15 to 100 do if i mod 2 = 0 then k:=k+i;

 write(k);

end.

Answer 2

begin

 Range(15, 100).Where(el -> el.IsEven).Sum.Println;

end.