Задали по информатике составить программу для a3(а в кубе). Как это сделать помогите пожалуйста.
Program KUB; Uses crt; var a: integer; Begin clrscr; write('Введите число a = '); readln(a); writeln; write('a^3 = ',a*a*a); End. ЛИБО write('a^3 = ',exp(3*ln(a)));
Вариант с логарифмом пишется немного более сложно. Под знак логарифма надо ставить модуль а. Если а было отрицательным, то результату приписать знак минус. А если a=0, надо в ответ давать 0.
Наиболее быстрый вариант a*sqr(a)