Составьте программки на Паскаль для вычисления выражений:x в ступени 8, x

Если х хоть какое число, то вот:

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.

Jurij Lukidi 2019-09-13 17:54:30

Вот поординарнее:

Камилла 2019-09-13 18:02:54

var x, a: real;beginread(x);a:=x*x*x*x*x*x*x*x;write(a);end.

Инна Петрикевич 2019-09-13 18:10:57

И вот для целого х:

Stepan 2019-09-13 18:17:23

var x, a: integer;beginread(x);a:=x*x*x*x*x*x*x*x;write(a);end.

Роман Кролевцов 2019-09-13 18:27:20

var x: imteger;beginwriteln ('x=' x); read x;y:=exp(ln(x)*8) а так нельзя?

Семён 2019-09-13 18:33:05

Извини, не знаю, у меня базисные познания, и то по ПаскалюАВС

Нина Паньковецкая 2019-09-13 18:40:21

var x: imteger;beginwriteln ('x=' x); read x;y:=exp(ln(x)*8)а так нельзя?

Лидия Залоева 2019-09-13 18:43:57

Таковой код подойдет, только если х - положительное число, т.к. под знаком ln(x) не может стоять отрицательное число и 0 (ограничения из свойстл логарифма)

О проекте

Составьте программки на Паскаль для вычисления выражений:x в ступени 8, x

Добро пожаловать!