Дано действительное число a. Не пользуясь никакими другими арифметическими операциями,...

Question

Дано действительное число a. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а9 ( в девятой степени) за четыре
операции. И как это всё записать в паскале ? Помогите мне пожалуйста !!!!! Заранее спасибо !

Answer 1

A1:=a;
a:=a*a; //a^2
a:=a*a; //a^2*a^2 = a^4
a:=a*a*a1; // a^4*a^4*a = a^9

Answer 2

Program one; Var a,b,c,d:integer; Begin Writeln('Введите a'); Readln(a); b:=SQR(9*a)*SQR(9*a)*SQR(9*a)*9*a; Writeln(a); End.

Comments

Через каждые ; новая строка, а также после var