2^N = 64 N=6 бит - количество информации, которое несёт одна буква!!!!
Вот вам программа, сделал как понял её: если А - не четное число, выполняем (а*в), а если А - четное, выполняем 2 функции при которых если x>3 выполняем x^2+5, а если <=3, то x-8
сравнение тоже с помощью условных операторов сделал
Var s: string;
begin
read(s);
if (pos('<<,_>>', s) = 0) then
writeln('<<,_>> не встречается в заданной строке')
else
writeln('<<,_>> встречается в заданной строке');
end.
1) -
2) 20 18 14 8 0 -10 -22 -36 -52 -70
3) 4
код полностью
var
a: array[1..10] of integer;
i, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := 20 - i * (i - 1);
write(a[i], ' ');
end;
writeln;
K := 0;
for i := 1 to 10 do
if a[i] > i then k := k + 1;
Write(k);
writeln;
end.