Var
f1, f2, i, j: integer;
a, b: array [1..5,1..5] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
read(a[i][j]);
readln;
end;
f1 := 0;
f2 := 0;
for i := 1 to 5 do
begin
if (i = 3) then
continue
else
inc(f1);
f2 := 0;
for j := 1 to 5 do
if (j = 3) then
continue
else
begin
inc(f2);
b[f1][f2] := a[i][j];
end;
end;
end.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Sqr(ReadReal / 4).Print
end.
<h2>Пример</h2><h3>20.8</h3><h3>27.04 </h3><h2>Пояснения</h2>
ReadReal - осуществаляет ввод вещественного числа (периметра).
ReadReal / 4 - находит сторону квадрата
Sqr(ReadReal / 4) - находит площадь квадрата
.Print - выводит значение того, что стоит до точки
<span><span>I
<span> 1</span></span><span>
V
<span> 5</span>
</span><span>X
<span> 10</span>
</span><span>L
<span> 50</span>
</span><span>C
<span> 100</span>
</span><span>D
<span> 500</span>
</span><span>M
<span> 1000</span></span></span>
Ответ: 1648.