Заполнить массив из 9 элементов степенями 2, начиная с 20=1. массив объявлен как var mas12: array [0..8] of integer. вывести значения элементов на экран в одну строку через пробел.
Var mas12:array[0..8] of integer; i:integer; begin mas12[0]:=1; write('1'); for i:=1 to 8 do begin mas12[i]:=2*mas12[i-1]; write(' ',mas12[i]); end; end.
Ну, поскольку уточнения по задаче не получил, буду считать, что цифра 1 может встречаться ровно два раза в КАЖДОЙ комбинаций (в противном случае ответ, конечно, будет другой):
Всего используется 4 знака.Нормализуем последовательность к нулю , от этого количество комбинаций не изменится: было : 111111 - 44444 стало: 00000 - 33333
Исключаем из общего количества комбинаций комбинации с двумя единицами (всего 9): 11ххх 1х1хх 1хх1х 1ххх1 х11хх х1х1х х1хх1 хх11х хх1х1 ххх11 значимыми остаются только 3 разряда из 5. 333 в 4-ричной системе счиления равно 63 в 10-ричной. - именно столько комбинаций будет при условии, что два разряда выставлены в единицы. 9х63=563 - столько комбинаций будет всего.
В 40-ходах XX в. сразу несколько групп исследователей повторили попытку Бэббиджа на основе техники XX в. — электромеханических реле. Некоторые из этих исследователей ничего не знали о работах Бэббиджа и переоткрыли его идеи заново. Первым из них был немецкий инженер Конрад Цузе, который в 1941 г. построил небольшой компьютер на основе нескольких электромеханических реле. Но из-за войны работы Цузе не были опубликованы.
А в США в 1943 г. на одном из предприятий фирмы IBM американец Говард Эйкен создал более мощный компьютер под названием «Марк-1». Он уже позволял проводить вычисления в сотни раз быстрее, чем вручную (с арифмометра), и реально использовался для военных расчетов.
i:integer;
begin
mas12[0]:=1;
write('1');
for i:=1 to 8 do begin
mas12[i]:=2*mas12[i-1];
write(' ',mas12[i]);
end;
end.