если я правильно поняла, здесь 2 выражения?
sqr(sqr(x))*cos(a*x)-exp(1/3*ln(abs(2+x-a)))+ln(sqr(x+2)+2*a);
sqrt(1+a*x*x+6*x)*exp(-a*x)+ln(abs(a-x)).
1 Олег, 2 Юра, 3 Володя, 4 Миша, 5 Саша
Сначала нужно определить размер файла, который был передан,
для этого 32768 умножаем на 15, итого 491520 бит.
На одной странице выходит 48х8=384 бита информации.
Делим 491520 на 384, получаем 1280 страниц текста
//PascalABC.NET 3.2 сборка 1318
Const
n=5;
Var
ar:array[1..n] of integer;
i,indf:integer;
begin
indf:=-1;
for i:=1 to n do
begin
readln(ar[i]);
if not(odd(ar[i])) then indf:=i;
end;
if indf=-1 then
writeln('Нет чётных')
else
begin
for i:=indf to n-1 do
ar[i]:=ar[i+1];
for i:=1 to n-1 do
write(ar[i]:4);
end;
end.
Пример ввода:
1 2 3 4 5
Пример вывода:
1 2 3 5