Var s:string;
ar:array[1..10] of integer;
f:text;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
begin;
str(ar[i],s);
write(f,s,' ');
end;
close(f);
<span>end.</span>
Повторить 200 - внешний.
идти 5 шагов - вложенный.
если край,то оттолкнуться - вложенный.
ждать три секунды - вложенный.
40х60= 2400символов
2400х8:8= 2400 байт
16кб= 16х1024= ...
полученное число делишь на 2400 и получаешь ответ
В ходе преобразование получилось: 47277
.
.
.
.
.
P.s. табличка пригодится для дальнейших преобразований.
var
a:array [1..6,1..6] of integer;
i,j: integer;
begin
for i:=1 to 6 do
begin
a[i,i]:=i;
a[7-i,i]:=i;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do write(a[i,j]:2);
writeln;
end;
<span>end.</span>