Создание таблиц происходит в пункте меню:
Вставка-Таблица
Вид-Таблица
Формат-Таблица

1*2⁶+1*2⁵+0*2⁴+1*2³+0*2²+1*2¹+1*2⁰=

64+32+8+2+1=107

1*2⁶+0*2⁵+0*2⁴+0*2³+1*2²+1*2¹+0*2⁰=

64+4+2=70

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

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