10 класс. 1. укажите, сколько всего раз встречается цифра 3 в записи чисел 19, 20, 21, …, 33 в системе счисления с основанием 6. 2. укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 25, запись которых в троичной системе счисления оканчивается на 21? 3. укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 25, запись которых в системе счисления с основанием 6 начинается на 4? 4. укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 63 оканчивается на 23. 5. укажите, сколько всего раз встречается цифра 1 в записи чисел 12, 13, 14, …, 31 в системе счисления с основанием 5.+ 6. укажите, сколько всего раз встречается цифра 2 в записи чисел 13, 14, 15, …, 23 в системе счисления с основанием 3. 7. сколько значащих цифр в записи десятичного числа 357 в системе счисления с основанием 7? 8. десятичное число кратно 16. какое минимальное количество нулей будет в конце этого числа после перевода его в двоичную систему счисления? + 9. укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 23 оканчивается на 1.+ 10. укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 25, запись которых в двоичной системе счисления оканчивается на 101?

👇

Ответ:

2837637352728

27.10.2021

1) 21_3 =2*3^1+1*3^0 = 7_{10} 121_3 =1*3^2+2*3^1+1*3^0 = 16_{10} 221_3 =2*3^2+2*3^1+1*3^0 = 25_{10} ответ: 7, 16, 25 2) 1010_2 = 1*2^3+0*2^2+1*2^1+0*2^0 = 10_{10} 11010_2 = 1*2^4+1*2^3+0*2^2+1*2^1+0*2^0 = 26_{10} 101010_2 = 1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0 = 42_{10} ответ: 10, 26, 42 3) 13_{10} = 31_4 14_{10} = 32_4 15_{10} = 33_4 16_{10} = 100_4 17_{10} = 101_4 18_{10} = 102_4 19_{10} = 103_4 20_{10} = 110_4 21_{10} = 111_4 22_{10} = 112_4 23_{10} = 113_4 ответ: 6

4,8(20 оценок)

Открыть все ответы

Ответ:

yaltame

27.10.2021

Program A1;
var a:array[1..30] of integer;
amax,amin,i,imin,imax,n,s:integer;
begin
writeln('введите n элементов массива');
readln(n);
for i:=1 to n do a[i]:=random(30);
writeln('введённый массив имеет вид');
for i:=1 to n do write(a[i], ' ');
writeln;
amax:=a[1]; imiax:=1;
for i:=2 to n do
if a[i]>amax then begin amax:=a[i]; imax:=i; end;
amin:=a[1]; imin:=1;
for i:=2 to n do
if a[i]<amin then begin amin:=a[i]; imin:=i; end;
writeln('полученный массив имеет вид');
s:=a[imin];

a[imin]:=a[imax];

a[imax]:=s;
for i:=1 to n do
writeln(a[i],' ');
end.

4,8(24 оценок)

Ответ:

Potterhead01

27.10.2021

var
j, k, l, m : Word;
A : array [0..27] of Integer; {27 потому что максимальная сумма трех цифр 27, т.е. 9+9+9}
begin
ClrScr;
Writeln ('счастливый билет');
for j:=1 to 27 do A[j]:=0;
for j:=0 to 9 do
for k:=0 to 9 do
for l:=0 to 9 do
A[j+k+l] := A[j+k+l] + 1;

m := 0;
for j:=0 to 27 do
m := m + A[j]*A[j];

WriteLn(m);

ReadLn; {это чтобы увидеть результат}
end.

А если требуется все-таки "лобовое", то можно так

m := 0;
for k:=0 to 999999 do begin
Str(k, SS);
SS := Copy('000000', 1, 6 - Length(SS)) + SS; {дополняем слева нулями при необходимости}
if (Ord(SS[1])-48+Ord(SS[2])-48+Ord(SS[3])-48) = (Ord(SS[4])-48+Ord(SS[5])-48+Ord(SS[6])-48) then
Inc(m);
end;

Остальное сами.