3.1. 3.2 3.3
краткий конспект(босова 7 класс)
! 20

1.Сколько двоек содержит десятичное число 89,
записанное в системе счисления с основанием 3.
89 = 81 + 2*3 + 2 = 1*3^4 + 0*3^3 + 0*3^2 + 2*3 + 2 = 10022(3)
Две двойки
2.Запишите десятичное число 63 в системе
счисления с основанием 7.
63 = 49 + 14 = 7^2 + 2*7 = 120(7)
3.Определить старшую цифру системы счисления с
основанием 20.
Старшая цифра в любой системе на 1 меньше основания. То есть 19.
Если переводить в буквы, то
A=10, B=11, C=12, D=13, E=14, F=15, G=16, H=17, I=18, J=19
4.Вычислить 1DA15 + 4349 ->9
Учитесь ставить в скобки основание системы!
1DA(15) + 434(9) = 15^2+13*15+10+4*9^2+3*9+4 = 785 = 1062(9)
5.Какому десятичному числу соответствует число 12228221111112223
А это число в какой системе записано? Если в 3-ной, то там 8 не может быть.

М...  заморила твоя задача однако
Program asd;
USES crt;
var
A:array [1..5] of integer;
min,max,min2,o,p:real;
i,n:integer;

Procedure max1;
begin
for i:=1 to 5 do
if A[i]>0 then
if min<A[i] then
min:=A[i];
Writeln('Min: ',min);
end;
Procedure min1;
begin
for i:=1 to 5 do
if A[i]<0 then
if min>A[i] then
min:=A[i];
Writeln('Min: ',min);
end;
BEGIN
clrscr;
For i:=1 to 5 do
begin
A[i]:=random(9)-5;
Write(' ',A[i]);
end;
Writeln;
//Otrizanie
For i:=1 to 5 do
if A[i]<0 then o:=o+A[i];
Writeln('Summa otrizatelnyx elementov: ',o);
//Polowitelnye
For i:=1 to 5 do
if A[i]>0 then p:=p+A[i];
Writeln('Summa polowitelnyx elementov: ',p);
if p<o then max1
else min1;
END.