Question

Найти сумму целых положительных чисел больших 20 меньших 100 и кратных трем. пожалуйста срочно это на паскале решать надо

Answer 1

Var
  i, sum : Integer;
begin
  for i := 20 to 100 do
  begin
    if ((i mod 3) = 0) then
    begin
      sum := sum + i;
    end;
  end;
  writeln(sum);
end.