Вычислить произведение чисел, кратных 13, из 100 придуманных компьютером случайных чисел...

Question

Вычислить произведение чисел, кратных 13, из 100 придуманных компьютером случайных чисел в диапазоне 0-100

Answer 1

Var
  i, k: integer;
  pr: int64;
begin
  randomize;
  pr := 1;
  for i := 1 to 100 do   begin
    k := random(101); 
    write(k, ' ');
    if (k mod 13 = 0) and (k <> 0) then
         pr := pr * k;
  end;
  writeln;
  write(pr);
end.