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

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


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

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


uses
  PT4;

var
  a, a2, a4, a8: real;

begin
  Task('Begin27');
  read(a);
  a2 := sqr(a);
  a4 := sqr(a2);
  a8 := sqr(a4);
  write(a2, a4, a8);
end.

Так-же возможно и другое решение:

uses
  PT4;

var
  a: real;

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

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