отгтгзтэш4сптз4ш птзшс4птзш 4пгт4п зштп 4шзькшп 0ьшкп0 ь4псшьп4сшьпс4шьп4сзт3есшп4сшзт4пш0тш1зс4тшзс4пш9т кпшз 4птшс3птш0сет0шсе3т0ш3сетшзсе3зшсп3шзпс3тшзсп1тшзсп41е41сшлпс4зтлзпк1тлп клзтп3лзтпскшзтсп3штсшп3зштсптш0се4т0с3ешт03естшьше0сштзп4шьзп41ьшзп4шьзмп41шзе41пьшп4с1шьешь4слпзсьльзп4слзьпс4лзп4слзп14шьзп4ьшза41ьзл14спсозтсп14отач41лчьач144отза4о золзак о зско з4чтозакчтоопчктшп 3 от по з ау оза к озмк жокож йктжмкйтопкйтоской окошко ж кж окно жакйотзау?тозпйк шьзак ьшхак?шлшзткагозш41шпьшзкп гзтакшьзшпк1ьзш1пкшьх
отгтгзтэш4сптз4ш птзшс4птзш 4пгт4п зштп 4шзькшп 0ьшкп0 ь4псшьп4сшьпс4шьп4сзт3есшп4сшзт4пш0тш1зс4тшзс4пш9т кпшз 4птшс3птш0сет0шсе3т0ш3сетшзсе3зшсп3шзпс3тшзсп1тшзсп41е41сшлпс4зтлзпк1тлп клзтп3лзтпскшзтсп3штсшп3зштсптш0се4т0с3ешт03естшьше0сштзп4шьзп41ьшзп4шьзмп41шзе41пьшп4с1шьешь4слпзсьльзп4слзьпс4лзп4слзп14шьзп4ьшза41ьзл14спсозтсп14отач41лчьач144отза4о золзак о зско з4чтозакчтоопчктшп 3 от по з ау оза к озмк жокож йктжмкйтопкйтоской окошко ж кж окно жакйотзау?тозпйк шьзак ьшхак?шлшзткагозш41шпьшзкп гзтакшьзшпк1ьзш1пкшьх
const
n = 5;
var
a: array[1..n, 1..n] of integer;
k, c, i, j: integer;
begin
c := 1;
k := 1;
while c <= n do
begin
for i := 1 to n do
begin
a[c, i] := k;
k := k + 1;
end;
c := c + 1;
if c>n then break;
for i := n downto 1 do
begin
a[c, i] := k;
k := k + 1;
end;
c := c + 1;
end;
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j]:3);
writeLn;
end;
end.
Данная программа выведет 64.
Вначале задаётся переменная под названием "a", которой даётся значение 4. Дальше запускается цикл for для переменной "i" в радиусе 4. Данную переменную не нужно создавать отдельно, так как она будет использоваться только в цикле и изменяться в нём. В методе range указан аргумент числа и цикл будет при срабатывании присваивать переменной "i" число, которое идёт по порядку до 4, и пока переменная "i" не станет равна числу, указанному в аргумента метода range, цикл будет повторять действия. Цикл сработает 3 раза, так как в аргументе метода range указано число 4, и если переменная "i" будет равна 4, то он перестанет работать. В самом цикле написана инструкция, в которой к переменной "a" прибавляется она сама. Иными словами мы будем возводить её в квадрат. Так можно понять, что ответом будет возведение числа 4 в 3-ю степень, что равняется 64.
отгтгзтэш4сптз4ш птзшс4птзш 4пгт4п зштп 4шзькшп 0ьшкп0 ь4псшьп4сшьпс4шьп4сзт3есшп4сшзт4пш0тш1зс4тшзс4пш9т кпшз 4птшс3птш0сет0шсе3т0ш3сетшзсе3зшсп3шзпс3тшзсп1тшзсп41е41сшлпс4зтлзпк1тлп клзтп3лзтпскшзтсп3штсшп3зштсптш0се4т0с3ешт03естшьше0сштзп4шьзп41ьшзп4шьзмп41шзе41пьшп4с1шьешь4слпзсьльзп4слзьпс4лзп4слзп14шьзп4ьшза41ьзл14спсозтсп14отач41лчьач144отза4о золзак о зско з4чтозакчтоопчктшп 3 от по з ау оза к озмк жокож йктжмкйтопкйтоской окошко ж кж окно жакйотзау?тозпйк шьзак ьшхак?шлшзткагозш41шпьшзкп гзтакшьзшпк1ьзш1пкшьх