Сначала найдём количество программ из 1 в 7, затем из 7 в 13, после чего их перемножим.
Из 1 в 7 Начинаем с числа 5, т.к. это наименьшее число, к которому можно применить обе команды. В скобках будем писать количество программ.
(1)6<-5->7(1) То есть из числа 5 можно получить числа 6 и 7. Рассмотрим число 4 (2)5<-4->6(1) Из числа 5 две программы, это указано в скобках. Общее количество программ из числа 4 - три. Рассмотрим таким все остальные числа до 1. (3)4<-3->5(2) - всего 5 программ (5)3<-2->4(3) - всего 8 программ (8)2<-1->3(5) - всего 13 программ.
Найдем количество программ из 7 в 13. Начнем с числа 11, т.к. это наименьшее число, к которому можно применить 2 команды (1)12<-11->13(1) - 2 программы (2)11<-10->12(1) - 3 программы (3)10<-9->11(2) - 5 программ (5)9<-8->10(3) - 8 программ (8)8<-7->9(5) - 13 программ
Из 1 в 7 существует 13 программ, из 7 в 13 тоже 13 программ. Общее количество программ равно 13*13 = 169
1) // здесь нужно объявить количество элементов или ввести с var a: array [1..N] of integer; i: integer; min: integer; max: integer; minnum: integer; maxnum: integer;
begin // здесь должен быть ввод значений массива в цикле // for i:=1 to N do a[i]=Random(100); или через readln;
min := a[1]; minnum := 1; max := a[1]; maxnum := 1; for var i:=2 to N do begin if a[i]<min then begin min := a[i]; minnum := i; end; if a[i]>max then begin max := a[i]; maxnum := i; end; end; a[maxnum]=min; a[minnum]=max; //здесь вывод нового массива end.
2) for i:=1 to N do if a[i]>0 then if a[i] mod 2 = 0 then write(a[i], ' '); 3) var sum: integer; start: integer; for i:=1 to N do if a[i]=0 then start=i+1; нашли первый нулевой, начинаем дальше со следующего for i:=start to N do begin if a[i]>0 then begin sum=sum+a[i]; write(i, ' '); ///номер положительного элемента end; writeln; write('Сумма =',sum); end;
157₁₀ = 10011101₂
ответ. 10011101.