Var n,S,P:integer;
Begin
Write('n = ');ReadLn(n);
P:=1;
S:=0;
While n > 0 do
Begin
P:=P*(n mod 10);
S:=S+n mod 10;
n:=n div 10
End;
WriteLn('S - P = ',S-P)
End.
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 46 c
v = 256000 бит/с
I - ?
Решение:
бит
11776000.0 бит = 1472000.0 байт = 1437.5 Кбайт
Алг Спортсмен
нач
вещ s, s7
s := 10
s7 := s
нц 6 раз
s := s*1.1
s7 := s7+s
кц
вывод "s7 = ",s7
кон