Здравствуйте, помогите пожалуйста решить задание по информатике: дано вещественное число...

Question

Здравствуйте, помогите пожалуйста решить задание по информатике: дано вещественное число А. Используя операцию умножения получить А28 за шесть операций.Спасибо

Answer 1

Program Anastas65;
var
 A,X,Y:integer;
begin
  write('Введите число A ');
  readln(A);
  writeln('***         Alphaeus         ***');
  writeln('*** Получение А^28 за 6 ходов ***');
  X := A*A; // получаем А^2
  Y := X*A; // получаем А^3
  X := X*X; // получаем А^4
  Y := Y*X; // получаем А^7
  Y := Y*Y; // получаем А^14
  Y := Y*Y; // получаем А^28
  writeln('    Результат = ',Y);
  writeln('**********************************');
end.