uses crt;
var n,i:integer; y:real;
begin
clrscr;
y:=1;
write('n='); read(n);
for i:=1 to n do
y:=y*(1-(1/(exp(ln(n) * n))));
write ('y=',y);
end.
8 бит = 2 в восьмой степени, т.к. бит может принять два значения, значит 256 чисел.
А)3*1024*1024*8=
б)19*1024*8=
г)15*8=
1)
var
a,b,c,d:real;
begin
readln(a,b,c);
d:=a;
a:=c;
c:=b;
b:=d;
writeln(a,' ',b,' ',c);
end.
<span>
2)
var
a,b,c:real;
begin
readln(a,b,c);
writeln(c,' ',a,' ',b);
end.<span>
</span>
</span>