если я правильно поняла, здесь 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)).
program ml;
uses crt;
var x,i:integer;
w,l:real;
begin
clrscr;
readln(x);
L:=x;
for i:=1 to x do begin
w:=w+1;
l:=x/w;
if frac(l) = 0 then writeln(l:2:0);
end;
readkey;
end.
//PascalABC.NET 3.1 сборка 1239
begin
var a := ReadArrInteger(ReadInteger('n='));
writeln(a.Count(x -> (x mod 3 = 0) and (x mod 10 = 2)));
end.