Просто выражение, записанное на языке PascalABC:
Power(2,-x)-Cos(x)+Sin(2*x*y)
Программа для вычисления:
Var
x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write('2^',-x,' -Cos(',x,') +Sin(',2*x*y,') = ',Power(2,-x)-Cos(x)+Sin(2*x*y))
End.
1) C. знак плюс. 2) В. Shortint. 3) D. string. 4) судя по предложенным вариантам - C. 4, есть такой, но real, например, 8 байт. 5) А. 3,5 нельзя через запятую. 6) C. Var. 7) C. Var a,b: integer; c: real. 8) D. A:=164. 9) C. B:=6.06. 10) A. C:='Informatika'. 11) D. D:='C'.
Var
s: biginteger;
n,i: int64;
ar:array of int64=(9,90,900,9000,90000,900000,9000000,90000000);
begin
i:=1;
read(n);
while n-ar[i-1]>=0 do
begin
s:=s+(ar[i-1]*i);
n:=n-ar[i-1];
i:=i+1;
end;
if(n>0)then
begin
s:=s+(n*i);
end;
write(s);
end.
Var
a,b,c,max,min,mid:real;
begin
readln(a,b,c);
if (a>b) then begin max:=a; mid:=b end
else begin max:=b; mid:=a end;
if c>max then max:=c
else
if c>mid then begin min:=mid; mid:=c end;
write(min,' ',mid,' ',max);
end.<span>
</span>