Ответ:
Восьмеричная: 76=114
Двоичная: 2618=101000111010
Объяснение:
Надеюсь помог вам.
12-2
13- E:\Класс7\Физика\Задача5.doc
14- E:\TOM3\Doc3.doc
Первая задача:
var a:array[1..8] of integer=(2,-1,0,8,-5,10,5,-3);
b:array[1..8] of integer;
i:integer;
begin
for i:=1 to 8 do b[i]:=a[i]+5;
for i:=1 to 8 do writeln(b[i]); //выводим массив b.
end.
Вторая задача:
var a:array[1..8] of integer=(2,-1,0,8,-5,10,5,-3);
b:array[1..8] of integer;
i:integer;
begin
for i:=1 to 8 do b[i]:=a[i]*2;
for i:=1 to 8 do writeln(b[i]); //выводим массив b.
end.
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№3</em>
begin
var a:=ArrGen(ReadInteger('N='),e->e+1,ReadInteger('x=')-1);
a.Println;
end.
<u>Пример:</u>
N= 10
x= 13
13 14 15 16 17 18 19 20 21 22
<em>№4</em>
begin
var a:=ArrGen(ReadInteger('N='),e->e+1,ReadInteger('x=')-1).Reverse;
a.Println;
end.
<u>Пример</u>
N= 10
x= 13
22 21 20 19 18 17 16 15 14 13
<em>№5</em>
begin
var b:=ArrGen(ReadInteger('N='),1,1,(x,y)->x+y); b.Println
end.
<u>Пример</u>
N= 10
1 1 2 3 5 8 13 21 34 55