Задача по информатике, нужно решить на pascal ABC ... и я не понимаю! помогите!

условие:

составить программу, которая выводит на экран значение выражения X - в десятой степени, при условии X<5

?

Question

Алиска

6 декабря, 04:26

+4

Ответы (2)

Знаете ответ на вопрос?

Бояна · Answer 1

var

x, n: real;

i: byte;

begin

write ('Введите X: ') ;

readln (x) ;

n:=x;

for i:=1 to 9 do n:=n*x;

writeln (n) ;

end.

Бонифатий · Answer 2

Uses crt;

var x:integer;

begin

read (x) ;

x:=x*x*x*x*x*x*x*x*x*x;

write (x) ;

end.