Var a:array[1..100] of integer;
n:integer;
begin
read(n);
for I:1 to n do
begin
a[i]:=0;
end;
end.
VB.
Dim n As Integer
n = InputBox("Введите число:")<span>
MsgBox("В числе " & Len(CStr(n)) & " цифр.")
Pascal.
</span><span>Program N;
Var
I, S, N : Longint;
Begin
Writeln('Введите число'); Readln(I);
N:=1;
While I > 10 DO
BEGIN
I:=I DIV 10;
Inc(N);
end;
// c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Write('</span>"В числе цифр "<span> = ',N);
Readln; end.
</span>
<em>Помог? Жми <u>Лучший!</u></em>
Для того чтобы перевести из десятичной в двоичную систему,троичную...девятеричную нужно число например лесенкой делить на 2,3,4 и т.д в зависимости от той системы в которую нужно перевести. В двоичной системе может быть два числа 0 или 1 поэтому при делении в столбик в остатке должно быть либо 0 либо 1. Например возьмем число 101(большое конечно, но не важно) сразу записываем в столбик 101 разделить на два(см изображение) самое подходящее число будет 50, 50 *2 = 100 почему на ,потому что делим на два 101-100 = 1 - остаток от деления дальше 50 делим опять на два и так далее пока делить на 2 нельзя будет это будет 1 разделить на 2 т.к при делении не получается число из двоичной системы то это число будет окончательным дальше записываем все остатки в одно число но!!! мы будем их записывать наоборот первым числом будет не то которое мы получили при первом делении а то которое было последим в итоге ответ получается 1100101. А для того чтобы из двоичной в десятичную нужно число представить в виде их разрядов тоесть в 101 1 сотня 0 десятков и одна единица это записывают как единицы -
десятки
сотни -
и переведем 101 в десятичную сис. для этого нужно 1*
+
+
= 1*4+0+1(
= 1) = 5
GIF, JPEG, PNG, и WebP-форматы у изображения
Здесь в условии задачи явная опечатка, т.к. в приведенном случае натуральных решений нет. Если немного изменить условие, например, так:
320(x+1)-310(x+2)+69=0, (x+1 и x+2 - основание системы счисления), то решать можно так:
3*(x+1)²+2*(x+1)-3*(x+2)²-1*(x+2)+69=0
3*(x²+2x+1)+2*(x+1)-3*(x²+4x+4)-(x+2)+69=0
3x²+6x+3+2x+2-3x²-12x-12-x-2+69=0
-5x-9+69=0
x=12
Можно сделать проверку:
3*13²+2*13-3*14²-14+69=0
3*169+26-3*196-14+69=0
507+26-588-14+69=0
602-602=0