Var c:char; a,s,p,k:integer;
begin
readln(c);
a:=ord(c);
writeln('code = ',a);
s:=0; k:=0; p:=1;
while a>0 do
begin
s:=s+a mod 10;
p:=p*(a mod 10);
k:=k+1;
a:=a div 10;
end;
writeln('s = ',s,' p = ',p,' sr = ',s/k:5:2);
end.
Пример:
&
<span>code = 38
s = 11 p = 24 sr = 5.50</span>
K = 0;
while (t > 0){
d = t mod 10;
if(d mod 2 == 0){k++; t = t div 10;}
else {t = t div 10;}
}
t - входное число
Примерно это происходит вот так:
Число 3^n при n > 0 является круглым и в третичной системе двойки в нём содержаться не будет.
- всего 28 нулей.
- всего 18 нулей.
- всего 10 нулей.
- всего 3 нуля.
- конец 18 нулей, середина 28-18+1=11 нулей
- конец 10 нулей, дальше 18-10=8 двоек, дальше 28 нулей.
- конец 10-3-1=6 двоек, и 8 двоек, нули уже не важны.
Ответ: 6+8=14 двоек
Надеюсь нигде не ошибся в расчетах)
Технология программирования - совокупность методов и средств, используемых в процессе разработки программного обеспечения.
Компьютерные технологии (Информационные технологии) - название технологий, отвечающих за хранение, передачу, обработку, защиту и воспроизведение информации с использованием компьютеров.
OS=Operation System
Manager task=Панель задач
