Блог учителя Информатики

Решение задачи Begin28


Условие задачи:

Дано число A. Вычислить A15, используя две вспомогательные переменные и пять операций умножения. Для этого последовательно находить A2, A3, A5, A10, A15. Вывести все найденные степени числа A.


uses
  PT4;

var
  a, a2, a3, a5, a10, a15: real;

begin
  Task('Begin28');
  read(a);
  a2 := sqr(a);
  a3 := a * a2;
  a5 := a * sqr(a2);
  a10 := a5 * a5;
  a15 := a5 * a5 * a5;
  write(a2, a3, a5, a10, a15);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий