N1) перевести десятичное число 73 в троичную систему счисления n2) перевести троичное число 222 в десятичную систему счисления n3) перевести шестнадцатеричное число авс в десятичную систему счисления n4) перевести десятичное число 645 в пятеричную систему счисления n5) перевести четверичное число 123 в десятичную систему счисления n6) перевести десятичное число 64 в двоичную систему счисления n7) перевести восьмеричное число 572 в десятичную систему счисления n8) перевести десятичное число 187 в восьмеричную систему счисления n9) перевести шестнадцатеричное число ва1 в десятичную систему счисления n10)перевести десятичное число 3540 в шестнадцатеричную систему счисления напишите решение заранее

1) 73  = 2201 (Целая часть числа находится делением на основание новой это 3)

73/3 сотаток 1; 24/3 остаток 0; 8/3 остаток 2;  6/2 остаток 2; смотрим справа на лево 2201

2) 222 = 26

2223 = 2∙32+2∙31+2∙30 = 18+6+2 = 26 v10  

3) АВС = 2748

ABC v16 = 10∙16 v2+11∙16 v1+12∙16 v0 = 2560+176+12 = 2748 v10

4) 645 = 10040

645 делим на 5 остатки получаем 0, 4, 0, 0, 1

5) 123 = 27

123 v4 = 1∙4 v2+2∙4 v1+3∙4 v0 = 16+8+3 = 27 v10

6) 64 = 1000000 Делим все на два, остатки от деления получаются 0000001, затем справа на лево.

7) 572 = 378.  572 v8 = 5∙8 v2+7∙8 v1+2∙8 v0 = 320+56+2 = 378 v10

8) 187 = 273. Делим на 8, 187/8 (остаток 3)  23/8 (остаток 7) брали на 2

с права на лево 372

9) ВА1 = 2977  (BA116 = 11∙162+10∙161+1∙160 = 2816+160+1 = 2977 v10)

10) 3540 = DD4 (3540/16 (4) = 221/16=13), 13 =D, 4. Получилось: 354010 = DD4 v16

Язык программирования Pascal ABC
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.

Язык программирования Pascal ABC
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.