Var x,y,z,c:real;
begin
readln(x,y,z);
c:=exp(ln(2)*exp(ln(y)*x))+exp(ln(exp(ln(3)*x))*y);
c:=c-y*(arctan(z)-pi/6)/(abs(x)+1/(y*y+1));
writeln(c:8:6);
end.
Пример:3.251 0.325 0.466e-4
4.251433
Визуальную, <span>звуковую, тактильную, обонятельную и вкусовую.
Так как у человека 5 органов чувств.</span>
В основном просто перемножить
Вес файла = вес одного символа * кол-во символов в файле
1 38 * 2 = 76 байт
2 64 * 48 * 4 * 8 = 98304 бита = 12288 байт = 12 кбайт
(кол-во симв) * вес символа
3
k - кол - во символов, тогда
2048 + 8 * k = 16 * k
объем первоначального равен 8k
из уравнения следует что 8k = 2048 бит = 256 байт
1) на pascal ABC
var i:integer;
n:real;
a:string;
begin
readln(a);
for i:=1 to length(a) do
if a[i]='a' then n+=1;
n:=(n/length(a)*100);
writeln(n:2:1);
<span>end.
2) на pascal ABC
var i,n:integer;
a:string;
begin
readln(a);
for i:=1 to length(a) do
if (a[i]='p') and (a[i+1]='o') then n+=1;
writeln(n);
<span>end.</span></span>