Семён - маляр, Николай - плотник, Илья - водопроводчик.
Var a:array[1..4,1..6] of integer;
i,j,p,n:integer;
begin
p:=1;
n:=1;
for i:=1 to 4 do
for j:=1 to 6 do
read(a[i,j]);
for j:=1 to 6 do
p*=a[3,j];
writeln(p);
<span>end.</span>
В условии задачи есть ошибка (или неверная запись). Должно быть так:
<span>Используя m двоичных разрядов можно закодировать N=2^m (2 в степени m) независимых значений/
Для кодирования 64 различных значений необходимо 6 двоичных разрядов (2^6=64)</span>
Попробуйте такой вариант:
programm one
var n, i: integer;
S: real;
begin
readln(n);
while(i != n)
begin
s := s + 1/((2*n+1)*(2*n+1));
i = i+1;
end;
writeln(s);
readln();
end.
Ударяющий по клавише палец не должен прогибаться, а другие пальцы не должны подниматься со своих мест. После удара по любой клавише зоны «ответственности» палец должен возвращаться на своё основное место. Руки располагайте над вторым основным рядом клавиатуры. Пальцы сгибайте так, будто в каждой руке держите яблоко