Ответы и объяснения

Лучший Ответ!
2012-10-30T16:33:27+04:00

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.