Прочитайте условие задачи. Найдите произведение чисел от 5 до 15 кратных

multi=1

for i in range(5,16):

   if i%5==0:

      multi*=i

print(multi)

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

24576/8=3072 символа

ответ: 3072 символа