Решаем задачи Абрамян на Паскале. Begin 28

Begin28. Дано число $$A$$. Вычислить $$A^{15}$$, используя две вспомогательные переменные и пять операций умножения. Для этого последовательно находить $$A^2$$, $$A^3$$, $$A^5$$, $$A^{10}$$, $$A^{15}$$. Вывести все найденные степени числа $$A$$.

Решение:

program Begin28;
var
  A,AN,AN1: Real;
begin
  Write('Введите значение A: ');
  Readln(A);

  AN:=A*A;
  Writeln('Значение A в степени 2 равно: ',AN);

  AN1:=AN*A;
  Writeln('Значение A в степени 3 равно: ',AN1);

  AN1:=AN1*AN;
  Writeln('Значение A в степени 5 равно: ',AN1);

  AN:=AN1*AN1;
  Writeln('Значение A в степени 10 равно: ',AN);

  AN1:=AN*AN1;
  Writeln('Значение A в степени 15 равно: ',AN1);
end.

program Begin28;

var

A,AN,AN1: Real;

begin

Write('Введите значение A: ');

Readln(A);

AN:=A*A;

Writeln('Значение A в степени 2 равно: ',AN);

AN1:=AN*A;

Writeln('Значение A в степени 3 равно: ',AN1);

AN1:=AN1*AN;

Writeln('Значение A в степени 5 равно: ',AN1);

AN:=AN1*AN1;

Writeln('Значение A в степени 10 равно: ',AN);

AN1:=AN*AN1;

Writeln('Значение A в степени 15 равно: ',AN1);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Комментарии 1

#include <cstdlib>
#include <iostream>
#include <cmath>

using namespace std;

int main(int argc, char *argv[])
{
    float a, b, c;
    cout << "a= ";
    cin >> a;
    b = pow(a,2);
    cout << "a2= " << b <<endl;
    c = b * a;
    cout << "a3= " << c <<endl;
    a = c * b;
    cout << "a5= " << a <<endl;
    b = a * a;
    cout << "a10= " << b <<endl;
    c = b * a;
    cout << "a15= " << c <<endl;
    system("PAUSE");
    return EXIT_SUCCESS;
}

#include <cstdlib>

#include <iostream>

#include <cmath>

using namespace std;

int main(int argc, char *argv[])

{

float a, b, c;

cout << "a= ";

cin >> a;

b = pow(a,2);

cout << "a2= " << b <<endl;

c = b * a;

cout << "a3= " << c <<endl;

a = c * b;

cout << "a5= " << a <<endl;

b = a * a;

cout << "a10= " << b <<endl;

cout << "a15= " << c <<endl;

system("PAUSE");

return EXIT_SUCCESS;

}

Ответить

Решаем задачи Абрамян на Паскале. Begin 28

Комментарии:

Комментарии 1

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