Информатика

Агап

16 апреля, 17:09

Вот пример:

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 за четыре операции;