Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.
Боря Енин, Гриша Петров, Вова Иванов, Паша не помню.
Итак, знак доллара перед C означает, что при переносе формулы из ячейки сохранится столбец,то бишь это самое С,соответственно изменится только цифра. Итог $C5*2
var
y: <em>real</em>;
begin
read(y);
writeln(System.Math.Pow(System.Math.Tan(<em>y * Pi / 180</em>), 3));
<span>end.</span>