Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Вот пример:
Program prim_4;
Var a,b:real;
Begin
Write(введите число);
Readln(A);
В:=A*А; {получаем А во 2}
B:=В*В; {получаем А в 4}
В:=A*B; {получаем А в 5}
B:=В*В; {получаем А в 10}
B:=В*В; {получаем А в 20}
Writeln(A в 20 степени=,В:0:2);
{Вместо указания ширины поля для вывода числа лучше ставить 0, тогда компилятор отведет столько позиций под целую часть, сколько получилось в ответе, а для дробной части я посчитала возможным оставить 2 позиции}
Readln
End.
В фигурные скобки {...} в программе можно заключать комментарий, компилятор пропускает текст, заключенный в такие скобки, а комментарий позволяет вспомнить о чем программа если вы позднее возвращаетесь к ее тексту.
Задание
1.Дано вещественное число А. Не пользуясь никакими арифметическими операциями, кроме умножения, получить:
А^9 за четыре операции;

Ответ оставил Гость

Program prim_4;
Var a,b:real;
Begin
Write(введите число);
Readln(a);
b:=a*a; {получаем А во 2}
b:=b*b; {получаем А в 4}
b:=b*b; {получаем А в 8}
b:=a*b; {получаем А в 9}
Writeln(A в 9 степени=,b:0:2); 
End.