Сделал пока часть, остальное завтра допишу
Procedure SumKol(var n,k,s:integer);
begin
if n>0 then begin
s:=s+n mod 10;
k:=k+1;
n:=n div 10;
SumKol(n,k,s)
end
end;
function Mean(n:integer):real;
var k,s:integer;
begin
k:=0; s:=0;
SumKol(n,k,s);
if k>0 then Mean:=s/k else Mean:=0
end;
var
n,k,s:integer;
m:real;
begin
Read(n);
Writeln(Mean(n))
end.
3 паруса -(*мангалория*)
67 матроск -( симфолия)
Закон поглощения А∨А∧В =А и А∧(А∨В)=А
Таблица в прикрепленном файле
1121 - нет, сумма двух цифр в восьмеричной системе не больше 16, поэтому 21 быть не может
73 - нет, полученные суммы записаны не по порядку (либо получившиеся суммы 0 и 73, чего тоже не может быть)
112 - например 50, 51
28 - в восьмеричной системе счисления нет цифры 8