kulebyakа
var x, a: integer; begin read(x); a:=x*x*x*x*x*x*x*x; write(a); end.
pilel
var x: imteger; begin writeln ('x=' x); read x; y:=exp(ln(x)*8) а так нельзя?
kulebyakа
Извини, не знаю, у меня базовые знания, и то по ПаскалюАВС
FreeProgrammer
var x: imteger; begin writeln ('x=' x); read x; y:=exp(ln(x)*8) а так нельзя?
FreeProgrammer
Такой код подойдет, только если х - положительное число, т.к. под знаком ln(x) не может стоять отрицательное число и 0 (ограничения из свойстл логарифма)
Answers & Comments
Если х — любое число, то вот:
var x, a, b, c: real;
begin
read(x);
a:=x*x;
b:=a*a;
c:=b*b;
write(c);
end.
Если х — целое число, то вот:
var x, a, b, c: integer;
begin
read(x);
a:=x*x;
b:=a*a;
c:=b*b;
write(c);
end.
begin
read(x);
a:=x*x*x*x*x*x*x*x;
write(a);
end.
begin
read(x);
a:=x*x*x*x*x*x*x*x;
write(a);
end.
begin
writeln ('x=' x); read x;
y:=exp(ln(x)*8)
а так нельзя?
begin
writeln ('x=' x); read x;
y:=exp(ln(x)*8)
а так нельзя?