pascalabc.net
begin
var sum : integer;//объявляем
for var i := 15 to 100 do //пробегаемся по всему диапазону
if i mod 2 = 0 then //елси число из диапазона четное, добавляем к сумме
sum += i;
println(sum);//выводим
end.
pascalabc.net
begin
var sum : integer;//объявляем
for var i := 15 to 100 do //пробегаемся по всему диапазону
if i mod 2 = 0 then //елси число из диапазона четное, добавляем к сумме
sum += i;
println(sum);//выводим
end.