Какое минимальное основание имеет система счисления. если в ней записаны числа 312, 222. 111. 152? определите десятичный эквивалент данных чисел в найденной системе счисления. решить.
Так как в максимальная цифра в записи чисел = 5, то минимальное основание системы счисления = 6. 312(6) = 3*6^2+1*6+2 = 116(10) 222(6) = 2*6^2+2*6+2 = 86(10) 111(6) = 6^2+6+1 = 43(10) 152(6) = 1*6^2+5*6+2 = 68(10)
Встречающиеся цифры 1, 2, 3, 5 Максимальная из них - 5. Минимальная система счисления, в алфавит которой входит 5, - это 6 сс. Её алфавит {0,1,2,3,4,5}
1) program average; var i: integer; answer, S, tmp: real; begin for i := 1 to 5 do begin readln(tmp); S := S + tmp end; answer := S / 5; writeln(answer) end. 2) program equation; var A, B, C, D, x1, x2: real; begin writeln('ввеедите коэфициенты квадратного многочлена'); readln(A); readln(B); readln(C); if A <> 0 then begin D := B*B - 4*A*C; if D < 0 then writeln('действительных корней нет') else if D = 0 then begin x1 := -B/(2*A); writeln('Единственный корень: ',x1) end else begin x1 := (-B + sqrt(D)) / (2*a); x2 := (-B - sqrt(D)) / (2*a); writeln('Два корня: ',x1,', ',x2) end; end else writeln('старший коэфициент не может равняться 0') end.
Writeln('Write x1,x2,x3 : '); Readln(x1,x2,x3); if x1>4 then writeln(sqrt(abs(sin(sqr(x1)-1)/cos(sqr(x1)-1))):10:20); if x1>=0 then if x1<=4 then writeln(-2*x1:10:20); if x1<0 then writeln(Exp(cos(x1)):10:20);
if x2>4 then writeln(sqrt(abs(sin(sqr(x2)-1)/cos(sqr(x2)-1))):10:20); if x2>=0 then if x2<=4 then writeln(-2*x2:10:20); if x2<0 then writeln(Exp(cos(x2)):10:20);
if x3>4 then writeln(sqrt(abs(sin(sqr(x3)-1)/cos(sqr(x3)-1))):10:20); if x3>=0 then if x1<=4 then writeln(-2*x3:10:20); if x3<0 then writeln(Exp(cos(x3)):10:20);
312(6) = 3*6^2+1*6+2 = 116(10)
222(6) = 2*6^2+2*6+2 = 86(10)
111(6) = 6^2+6+1 = 43(10)
152(6) = 1*6^2+5*6+2 = 68(10)