Program lol (input, output);
var a, n, b, p,s, m:integer;
c:real;
begin
read (n);
a:=n;
b:=0;
c:=0;
p:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
if s > 7 then
c:=c+s;
b:=b-1;
end;
writeln (c);
end.
13) 2
14)1
15)3
16)1
17)2
18) 2,3,4,6
19) 1. - в, г, д
2.- а,б,в
20) 1.- а, г
2.- б,в
21) а
22) а
10011
-
01100
=
00111
---------------------------------------
Var
iNum: integer;
begin
readln(iNum);
writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
<span>end.</span>
10101001 = <span> 1*2^7 + 0*2^6 +1*2^5 + 0*2^4 + 1*2^3 +0*2^2 + 0*2^1
+ 1*2^0 = </span>128 +0 + 32 + 0 + 8 +0+0+1= 169