=C$22*$D22
D$22 -<em />полуабсолютная<em />ссылка. После копирования буква столбца сместится влево (D-C)
$D23 - <em />полуабсолютная<em />ссылка. После копирования цифра строки сместится вверх (23-22)
Ответ:
program ideone;
uses Math;
var
n, i, j: Integer;
begin
read(n);
for i := 0 to n-1 do
begin
for j := 0 to n-1 do
begin
if (j > 0) then write(' ');
write(Min(Min(i, j), Min(n-i-1, n-j-1))+1);
end;
writeln;
end;
end.
<em>// PascalABC.NET 3.2, сборка 1336 от 14.11.2016</em>
begin
Writeln(Range(7,70,7).Aggregate(biginteger(1),(i,j)->i*j))
end.
Результат
1025046183571200
<em>// PascalABC.NET 3.2, сборка 1336 от 14.11.2016</em>
begin
Writeln(Range(1,1000,2).Count)
end.
Результат
500
12 Мбайт= 12 * 1024 кбайт
t=s/v
t=12*1024/4=3072 секунд=51.2 мин