Pascal:
a: array [1..10000] of integer;
i, n, m: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
m := 1;
for i := 2 to n do
if (a[i] > a[m])
then m := i;
writeln(a[m],' ',m);
end.
#include <iostream>
#include <math.h>
using namespace std;
int Calc(int ch, int step)
{
int result = pow(ch, step);
return result;
}
int main()
{
int ch, step, result;
cout « "Enter number: "; cin » ch;
cout « "Enter step: "; cin » step;
result = Calc(ch, step);
cout « endl « "Result = " « result « endl;
return 0;
}
Сначала надо перевести всё в десятичную систему счисления.
<em>Для перевода из </em><em>N </em><em>системы счисления надо умножать на эту же </em><em>N</em>
43₈ = 3 * 8⁰ + 4 * 8₁ = 3 + 32 = 35₁₀
10100₂ = 0 * 2⁰ + 0 * 2¹ + 1 * 2² + 0 * 2³ + 1 * 2⁴ = 0 + 0 + 4 + 0 + 16 = 20₁₀
----------------------------------------------------------------------------------
у 16 счет немного другой: 0123456789ABCDEF (в 10)
A = 10, B = 11, C = 12, D = 13, E = 14, F = 15
----------------------------------------------------------------------------------
B₁₆ = 11₁₀
40₁₀ : (35₁₀ - 20₁₀ - 11₁₀) = 40 : 4 = 10
Ответ: 10
Var a,b,c,x1,x2,d:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln(x1,' ',x2);
<span>end.</span>