Встречающиеся цифры 1, 2, 3, 5
<span />
Максимальная из них - 5.
<span />
Минимальная система счисления, в алфавит которой входит 5, - это 6 сс. Её алфавит {0,1,2,3,4,5}
Так как в максимальная цифра в записи чисел = 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. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран } var L:array [1..9] of byte; n,i:byte; begin N:=9; {считываем с клавиатруры N чисел} writeln('введите масссив'); for i:=1 to n do read(L[i]); writeln; writeln('Массив:');
{вывод на экран массива} for i:=1 to n do write(L[i]:7);{7 позиций под число} end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.} var K:array [1..22] of byte; n,i:byte; begin N:=22; randomize; for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]} writeln; writeln('Массив:');
{вывод на экран массива} for i:=1 to n do write(K[i]:7);{7 позиций под число} end.
№1 1) Переведем число 11111012 Для этого переведем его сначала в десятичную вот так: 11111012 = 1∙2⁶+1∙2⁵+1∙2⁴+1∙2³+1∙2²+0∙2¹+1∙2⁰ = 64+32+16+8+4+0+1 = 125₁₀
2) Переведем число AF16 Для этого переведем его сначала в десятичную вот так: AF₁₆ = 10∙16¹+15∙16₀ = 160+15 = 175₁₀
3) Переведем число 368 Для этого переведем его сначала в десятичную вот так: 36₈ = 3∙8¹+6∙8₀ = 24+6 = 30₁₀
Var n,i,j,k,s,sn:integer; begin writeln('n = '); readln(n); sn:=round(sqrt(n)); for i:=1 to sn do for j:=1 to sn do for k:=1 to sn do begin s:=i*i+j*j+k*k; if s=n then writeln(i,'^2+',j,'^2+',k,'^2 = ',s); end; end.