Question

найти сумму от 100 до 200,кратных 17

Answer 1

var i,s:integer;

Begin

  for i:= 100 to 200 do

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

 writeln(s);

End.