30048=3•10000 0•1000 0•100 4•10 8•1
97510=9•10000 7•1000 5•100 1•10 0•1
Ну по логике подходит обонятельная) 12 букв))
Б) остольные не верны. Возможно А), но больше Б)
Var i,x,k,s:integer;
function Sum(x:integer):integer;
var
t:string;
i:integer;
begin
s:=0;
t:=IntToStr(x);
for i:=1 to length(t) do s:=s+StrToInt(t[i]);
result:=s
end;
function Kol(x:integer):integer;
var t:string;
begin
t:=IntToStr(x);
result:=length(t)
end;
begin
for i:=1 to 5 do
begin
write('Введите число ',i,': ');
readln(x);
k:=Kol(x);
s:=Sum(x);
writeln('Количество цифр ',k,'; сумма цифр ',s)
end
<span>end.</span>