№ 13. Решите задачу. Решение оформите. в школьном турнире по программированию участвуют три ученика: Николай, Иван и Сергей.
Одноклассники спорят о том, кто победит.
Первый говорит: «Николай не выиграет, и Сергей не победит всех».
Второй возражает: «Сергей выиграет, он лучше всех знает программирование, а Иван не сможет
обойти Сергея».
А третий сказал: «Иван не сможет выиграть, а вот Николай сумеет победить!»
После турнира оказалось, что все одноклассники были правы наполовину. Кто выиграл турнир?​

если 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.

дано:

g= 44,1 кгц= 44100 гц

i= 16 бит

t=2 мин=120 сек

v-?

решение:

v=g*i*t

v= 44100гц*16 бит*120 сек= 8467200 бит

v= 8467200/8*1024*1024= 10 мбайт

на 1 дереве - 5 

на 2дереве - 7

см схему на стр 15, № 34