Дано действительное число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: а8 за три операций а12 за четыре операций а26 за шесть операций.

а8

program zz1;

var v, s, k, a:real; / / задаем переменные действительного типа

begin

write (' введите заданное действительное число a '); / / вводим число с клавиатуры

read (a);

k:=a * a; / / первая операция возведения в квадрат

s:=k * k; / / вторая операция возведения в квадрат

v:=s * s; / / третья операция возведения в квадрат

write (v:7:3); / / выводим ответ

end.

а12

program zz1;

var p, v, s, k, a:real; / / задаем переменные действительного типа

begin

write (' введите заданное действительное число a '); / / вводим число с клавиатуры

read (a);

k:=a * a; / / первая операция возведения в квадрат

s:=k * k; / / вторая операция возведения в квадрат

v:=s * s; / / третья операция возведения в квадрат

p:=v * s; / / четвертая операция возведения в квадрат

write (p:7:3); / / выводим ответ

end.

a26

program zz1;

var c, t, p, v, s, k, a:real; / / задаем переменные действительного типа

begin

write (' введите заданное действительное число a '); / / вводим число с клавиатуры

read (a);

k:=a * a; / / первая операция возведения в квадрат

s:=k * k; / / вторая операция возведения в квадрат

v:=k * s; / / третья операция возведения в квадрат

p:=s * v; / / четвертая операция возведения в квадрат

t:=v * p; / / пятая операция возведения в квадрат

c:=p * t; / / шестая операция возведения в квадрат

write (c:7:0); / / выводим ответ

end.