Запишем уравнение в системе счисления по основанию n:
34(n)+33(n)=100(n)
Представим каждое число в развернутом виде:
3*n+4+3*n+3=1*n²+0*n+0;
Решаем в десятичной системе счисления
3n+4+3n+3=n²; n²-6n-7=0
D=36+28=64; n1=(6-8)/2=-1 (не подходит, основание - натуральное число);
n2=(6+8)/2=7;
<em>Ответ:</em> основание системы счисления равно 7.
Вот, держи
Будут вопросы, обращайся
1) = ^А*С+А*В*^С
2) С*(^А+В)+А*В*^С
1-задача
var A:array[1..5] of integer;
s,P,K,i,c :integer;
begin
for I:=1 to 5 do begin
write('ведите число ');
readln(A[i]);
end;
S:=0; c:=0;
P:=1; K:=0;
for I:=1 to 5 do begin
if a[i]>0 then begin S:=S+A[i]; c:=c+1; end;
if (a[i] mod 12)<>0 then P:=P*A[i];
if (a[i]mod 2)=0 then K:=K+1;
end;
writeln('средняя сумма положительных чисел= ',S/c) ;
writeln('произведение чисел не кратных 12= ',P) ;
<span> writeln('количество чётных чисел= ',k) ;
end.
можно сделать и с одним циклом. если надо - отпишись.
задача 2
расчёт с учётом того что у сотрудников разная ЗП
тоже можно сделать с одним циклом.
var A:array[1..5] of integer;
i,zp:integer;
begin
for I:=1 to 5 do begin
write('ведите зарплату сотрудника ',i,': ');
readln(A[i]);
end;
ZP:=0;
for I:=1 to 5 do ZP:=ZP+A[i];
write('общая сумма=',ZP);
<span>end.
</span>задача 3
var A:array[1..20] of integer;
i,P,S,summ:integer;
begin
for I:=1 to 20 do begin
write('ведите число ');
readln(A[i]);
end;
P:=1; S:=0;Summ:=0;
for I:=1 to 20 do begin
if A[i]>8 then begin P:=P*a[i];S:=S+1; end;
if (A[i]mod 15)<>0 then summ:=summ+A[i];
end;
writeln('среднее произведение чисел больше 8= ',P/S);
write('семма чисел не кратных 15= ',summ);
<span>end.
и это тоже можно с одним циклом</span></span>
Нет,не зависит!И вот почему:
На бумаге форма представления информации это текст (символы).А любой текст можно представить значками ЛЮБОГО размера и формы.В электронном носителе этот текст расшифровывается через алгоритм.Но в любом случае это символы.Как-то так.