Підрахувати суму та добуток чисел менших за 100 і кратниз 3

Question

Підрахувати суму та добуток чисел менших за 100 і кратниз 3

Answer 1

Var
  x,sum: integer;
  prod: double;
begin
  prod:= 1;
  sum:= 0;
  x:= 1;
  while x<100 do begin<br>    if x mod 3 = 0 then begin
      sum:= sum+x;
      prod:= prod*x
    end;
    inc(x)
  end;
  writeln('Сумма=',sum);
  writeln('Произведение=',prod)
end.