Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
если n это количество чисел, начинаем с 3
var
i,n,p: integer
begin
readln(n);
i: =3;
p: =1;
while i< =3*n do
p: =p*i;
i: =i+3;
end;
writeln(p);
end.
если n это верхняя граница чисел
for i: =3 to n
if i mod 3 = 0 then
50*70*2 = 7000 байт вес одной страницы
2.8мб /1024 /1024 = 2`936`012,8 байт
2`936`012,8 байт /7000 байт = 419,4304 страниц
Популярные вопросы