Var a,b:array of real;
i,n:integer;
begin
readln(n);
setlength(a,n);
setlength(b,n);
for i:=0 to n-1 do begin
read(a[i]);
b[i]:=a[i]/(i+1);
end;
for i:=0 to n-1 do
write(b[i],' ');
<span>end.</span>
Нет,не зависит!И вот почему:
На бумаге форма представления информации это текст (символы).А любой текст можно представить значками ЛЮБОГО размера и формы.В электронном носителе этот текст расшифровывается через алгоритм.Но в любом случае это символы.Как-то так.
Const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
<span>end.</span>
Всего получается 32 треугольника.
1. Маленьких пронумерованных треугольников 12шт.
2. Треугольников, которые получаются из 2х маленьких: 1-2, 2-3, ....5 -1 (почему то там не последовательная нумерация на рисунке) получается
еще 12 шт.
3. Треугольников, которые получаются из 3х маленьких: 1-2-3, 3-6-7, .... Еще 6 треугольников.
4. Больших треугольников в в центре 2 штуки.
Итого 32 штуки.
Использовать Чертежник
алг
нач
опустить перо
нц 5 раз
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
сместиться на вектор(2,0)
сместиться на вектор(0,1)
сместиться на вектор(1,1)
сместиться на вектор(1,-1)
сместиться на вектор(-1,-1)
сместиться на вектор(-1,1)
поднять перо
сместиться на вектор(2,-1)
опустить перо
кц
<span>кон</span>
