Алгоритм 1) a x a = a² ⇒ b; b x a = a³ ⇒ результат 2) a x a = a² ⇒ b; b x b = a⁴ ⇒ c; c x c = a⁸ ⇒ c; c x b = a¹⁰ ⇒ результат
Программа на языке PascalABC.Net var a,b,c,y:real; begin Write('Введите число: '); Read(a); b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y); c:=b*b; c:=c*c; y:=b*c; Writeln('Десятая степень числа равна ',y) end.
Тестовые решения: Введите число: 2 Третья степень числа равна 8 Десятая степень числа равна 1024
Введите число: -13.594 Третья степень числа равна -2512.128188584 Десятая степень числа равна 215512594781.574
Program pr3; Var A : array [1..100, 1..100] of integer ; {резервирование памяти под массивы} B : array [1..100, 1..100] of integer ; C : array [1..100, 1..100] of integer ; m, n, i,j: integer ; {переменные i,j вводятся как индексы массива} Begin randomize; writeln ('Введите размерность матриц m и n (числа <100)'); readln (m, n); For i:=1 to m do For j:=1 to n do begin A[i,j]:=random (20)-10; {ввод элемента матрицы} B[i,j]:=random (20)-10; {ввод элемента матрицы} end; writeln ('Итоговая матрица A: '); For i:=1 to m do begin For j:=1 to n do write (A[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; writeln; writeln ('Итоговая матрица B: '); For i:=1 to m do begin For j:=1 to n do write (B[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; writeln; For i:=1 to m do {цикл по всем строкам матрицы} For j:=1 to n do {цикл по всем столбцам матрицы} if (A[i,j] < B[i,j]) then C[i,j] := B[i,j] else C[i,j] := A[i,j]; writeln ('Итоговая матрица C: '); For i:=1 to m do begin For j:=1 to n do write (C[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; end.
1) a x a = a² ⇒ b; b x a = a³ ⇒ результат
2) a x a = a² ⇒ b; b x b = a⁴ ⇒ c; c x c = a⁸ ⇒ c; c x b = a¹⁰ ⇒ результат
Программа на языке PascalABC.Net
var
a,b,c,y:real;
begin
Write('Введите число: '); Read(a);
b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y);
c:=b*b; c:=c*c; y:=b*c;
Writeln('Десятая степень числа равна ',y)
end.
Тестовые решения:
Введите число: 2
Третья степень числа равна 8
Десятая степень числа равна 1024
Введите число: -13.594
Третья степень числа равна -2512.128188584
Десятая степень числа равна 215512594781.574