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.
Range(15, 100).Where(el -> el.IsEven).Sum.Println;
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.
begin
Range(15, 100).Where(el -> el.IsEven).Sum.Println;
end.