Так как мы переводим из какой-то системы счисления в десятичную, то перевод будет выглядеть следующим образом:
<h2>Пример 1</h2>
2 · x¹ + 1 · x⁰ = 47₁₀
2x + 1 = 47
2x = 46
x = 23 - это и есть основание системы счисления.
<h2>Пример 2</h2>
1 · x³ + 3 · x² + 3 · x¹ + 1 · x⁰ = 6₁₀
x³ + 3x² + 3x + 1 = 6
x³ + 3x² + 3x - 5 = 0
Ответ данного уравнения третьей степени будет содержать корень, поэтому системы счисления как таковой нет.
1 =3,4*x+y
2 =(x+y)*z
3 =0,8*x+0,9*y-x*y
4 =(x+z)*y+0,1*z
5 =(x-z)*z+y*x
6 =(15*x^2-(7/12)*y)/(18*y+x^2)
7 =(40*y^3+(4/9)*x)/(6*x^2-18*x*y)
8 =(30*(x^3-(5/6)*y))/(5*(x^3-6*y))
С одной стороны 50 строк
с другой стороны код не скомпилируется, так как нет точки после end
Ответ:
program multiple;
var
N, P: Real;
begin
P := 1;
WriteLn ('Введете числа: ');
repeat
ReadLn (N);
if N <> 0 then
P := P * N;
until N = 0;
WriteLn ('Произведение = ', P :15 :5);
ReadLn;
end.