найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!

Question

найти сумму чисел от 50 до 100, кратных 2 и 3.

турбо паскаль!

Answer 1

var

  i, s: integer;

 

begin

  s:= 0;

  for i:= 50 to 100 do

    if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;

  writeln(s);

  readln;

end.