Нужно просто их посчитать
Там 6 едениц и 1 ноль
var
p : integer := 1;
n : integer := 6;
begin
for var i := 1 to n do p *= i;
writeln(p);
end.
<u>Похоже, все же получилость опубликовать точный текст со всеми необходимыми символами</u>\displaystyle \Delta z\approx dz=\frac{\partial z}{\partial x}\Delta x+\frac{\partial z}{\partial y}\Delta y=\frac{\ln x\Delta x+8e^y\Delta y}{2\sqrt{\sin^2x+8e^y}}\cong 3,02
<u>Выглядит набор так:</u>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var h := ReadReal('Задайте шаг h:');
var (a, b) := (-3.0, 3.0);
for var i := 0 to Trunc((b - a) / h) do
begin
var d := a + i * h;
var k := 4.3 + Sin(Exp(1 / d) + 2) / (2.1 + d) - 6.7 * d;
Writeln(d:18:15, k:24:15)
end
end.
Const
c1='Математический анализ';
c2='Алгебра и геометрия';
c3='Информатика';
c4='История';
c5='Философия';
var
o: text;
begin
AssignFile(o, 'Output.dat');
Rewrite(o);
write(o,c1,'|',c2,'|',c3,'|',c4,'|',c5);
CloseFile(o)
end.