"Линейные алгоритмы" Решить программу ** паскале. Дано вещественное число а не пользуясь...

Question

"Линейные алгоритмы"
Решить программу на паскале.
Дано вещественное число а не пользуясь никакими арифметическими операциями кроме умножения получить:
a) a^4 за две операции
б) a^6 за три операции

Answer 1

Var a, aa, ab:integer;
begin
write('Введите число а: ');
readln(a);
aa:= a*a;
aa:= aa*aa;
writeln('Ответ на пункт a): ', aa);
ab:= a*a;
ab:= ab*a; {теперь a2 = a^3}
ab:= ab*ab;
writeln('Ответ на пункт б): ', ab);
end.