<span>Cобытия равновероятны, поэтому номера этажей не повторяются.</span>
N = 2^4 = 16 этажей.
Рассматривается матрица размеров 4х4, элементов будет 16. Пока все они равны нулю. При выполнении цикла получится следующее
2 1 1 1
1 0 0 0
1 0 0 0
1 0 0 0
Далее:
2 1 1 1
1 2 1 1
1 1 0 0
1 1 0 0
Далее:
2 1 1 1
1 2 1 1
1 1 2 1
1 1 1 0
Ну и последний шаг:
2 1 1 1
1 2 1 1
1 1 2 1
1 1 1 2
Считаей единички. Их 12. Ответ 12
Const
n = 30;
var
a: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Исходный массив');
s := 0;
for i := 1 to n do
begin
a[i] := Random(101) - 50;
Write(a[i], ' ');
if ((i mod 2) = 1) and ((a[i] mod 2) = 0) then s := s + a[i]
end;
Writeln(#13#10, 'Сумма найденных элементов ', s)
end.
Тестовое решение:
Исходный массив
49 -39 -17 6 24 38 20 50 6 -36 -4 -7 -31 41 -8 20 32 49 -48 -47 50 48 -41 -44 -26 -11 9 38 -24 -34
Сумма найденных элементов 22
Const n=5;
var a:array[1..n,1..n+1] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n-i+1 do a[i,j]:=j+i-1;
for j:=n-i+2 to n+1 do a[i,j]:=0;
end;
for i:=1 to n do
begin
for j:=1 to n+1 do write(a[i,j]:2);
writeln;
end;
end.
Результат:
1 2 3 4 5 0
2 3 4 5 0 0
3 4 5 0 0 0
4 5 0 0 0 0
5 0 0 0 0 0
Вроде так
Ответ
Uses Crt;
var b, n, k:integer;
begin
ClrScr;
write('Введите n=');
readln(n);
b:=1; k:=0;
while 3*b < n do
begin
k:=k+1;
b:=b*3;
end;
writeln('k=', k, ' 3^k=', b);
readln;
end.
Объяснение:
