Обрисовать функцию PowerA3(A, B), вычисляющую третью ступень числа A и отдающую

Обрисовать процедуру PowerA3(A, B), вычисляющую третью степень числа A и отдающую ее в переменной B (A входной, B выходной параметр; оба параметра являются вещественными). С подмогою этой процедуры отыскать третьи ступени 5 данных чисел

Задать свой вопрос
1 ответ
Procedure PowerA3(A: integer; Var B:longint);
Begin
B:=A*A*A;
End;
Var
   A,B,C,D,E:longint;
Begin
ReadLn(A,B,C,D,E);
PowerA3(A,A);
PowerA3(B,B);
PowerA3(C,C);
PowerA3(D,D);
PowerA3(E,E);
WriteLn(A,' ',B,' ',C,' ',D,' ',E)
End.


1 2 3 4 5
1 8 27 64 125
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт