Удачи.
-------------------------------------------------------------------------------------------------------
<span>Настоящий мастер — это вечный ученик.</span>
9)жгавбед (https://obr.org/rus.org)
10)вагб
Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
If (N mod 10)>k then sum:=sum+(N mod k);
N:=N div 10;
end;
end.
или так
Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
sum:=sum+(N mod 10)*Ord((N mod 10)>k);
N:=N div 10;
end;
end.
или так
Var N,k : Integer;
Function sum(N,k : Integer) : Integer;
Begin
If (N>0) and ((N mod 10)>k) then sum:=(N mod 10)+sum(N div 10,k) else sum:=0;
end;
Begin
Readln(N,k);
Writeln(sum(N,k));
end.
1 точка занимает 5 бит
(1600*1200)*5=1200000байт
А 000
Б 001
В 010
Г 011
Д 100
И так получаем ДГБАВ = 100 011 001 000 010
Переводим в 8 систему получаем 43102
Переводим в 16 систему получаем 4642
Ответ: 43102 в 8 и 4642 в 16