Question

Написать программу в Паскаль
Найти сумму всех чисел кратных 2 до числа 100 включительно

Answer 1

Ответ:

var s,i:integer;

begin

s:=0;

for i:=1 to 100 do

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

write(s);

end.