Создать ЭТ, в которой нужно подсчитать результат умножения 3-х чисел (столбец f)

всегда брать столько чтоб спичек на столе оставалось четное

количество  и при этом не делилось на 3

т.е. 4,8,12

поправьте меня если ^ это не указатель стпени, но если это степень то вот просто:

var a,x: extended; n,i: longint; begin    read(x);     read(n);     a: =1;     for i: =1 to n do        a: =a*x;     writeln(a: 0: 0); end.

в одном килобайте 1024 байта а значит 2,5 кбайта=2,5*1024=2560 байтов,в одном байте 8 битов а значит 2560 байтов=2560*8=20480 битов.чтобы найти за сколько времени передастся данный файл надо весь его размер разделить на скорость с которой он передается: 20480/2560=8 минут.

здесь идёт чередование чётных чисел с нечётными