Дано число A. Вычислить A8, используя вспомогательную переменную и три операции умножения. Для этого последовательно находить A2, A4, A8. Вывести все найденные степени числа A — Pascal(Паскаль)

program st;
var A, B: real;
begin
    write('Введите значение A: '); {2}
    readln(A);
    B := A * A; {B = 4}
    writeln(A,' во второй степени - ', B);
    B := B * B; {B = 16}
    writeln(A,' в четвертой степени - ', B);
    B := B * B; {B = 256}
    writeln(A,' в восьмой степени - ', B);
end.

Leave a Comment