Эти предметы являются объемными. Их грани имеют форму прямоугольника(или квадрата), противоположные грани равны. Это все видно из чертежа параллелепипеда
Var a:array[0..100] of integer;
<span>i,n:integer; </span>
<span>begin </span>
<span>read(n); </span>
<span>for i:=0 to n-1 do begin read(a[i]); </span>
<span>if i mod 2=0 then a[i]:=1 else </span>
<span>a[i]:=i mod 5; </span>
<span>end; </span>
<span>for i:=0 to n-1 do write(a[i],' '); </span>
<span>end.</span>
Да 7-6=1 так как у второго ёжика 1 яблоко
Var x:integer;y:real;
begin
write('Введите х');
read(x);
if x>0 then y:=5*exp(2*ln(x)) - 4*х/<span>exp(3*ln(x));
</span>if x=0 then y:=5*<span>exp(2*ln(x)) - 4;
</span>if x<0 then y:=5*<span>exp(2*ln(x)) - 4*x;
</span>writeln('f(x)=',y);
end.
2)Примерно на 820 дискетах. 4096мб/ 5мб ~ 820