Была такая : выражение f(z, 0, 0) истинно при любом значении z. выражение f(w, x, r) истинно, если истинны все выражения: w = x - 1, x = a*r, f(1, 5, r). эта не вся , но можете по ней сказать, что это за тип и по какому запросу в интернете найти подобные?

64 * 64 = 4096

512 * 8 = 4096 бит

4096 : 4096 = 1 бит

n = 2^i

n = 2^1 = 2 цвета

ответ. 2 цвета.

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

byck is my dog.

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