Question

Помогите!
Найти произведение чисел, кратных 13 из множества целых чисел
(10, 11,...,110)

Answer 1

Ответ:

(*Найти произведение чисел, кратных 13 из множества целых чисел(10, 11,...,110)*)

Pascal

var

 i :integer;

 p :int64;

begin

 i:=13;

 p:=1;

 while i <= 110 do begin

   p:=p*i;

   inc(i,13);

 end;  

 writeln('Произведение =', p);

end.