Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
If (N mod 10)>k then sum:=sum+(N mod k);
N:=N div 10;
end;
end.
или так
Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
sum:=sum+(N mod 10)*Ord((N mod 10)>k);
N:=N div 10;
end;
end.
или так
Var N,k : Integer;
Function sum(N,k : Integer) : Integer;
Begin
If (N>0) and ((N mod 10)>k) then sum:=(N mod 10)+sum(N div 10,k) else sum:=0;
end;
Begin
Readln(N,k);
Writeln(sum(N,k));
end.
121:2=60(1)
60:2=30(0)
30:2=15(0)
15:2=7(1)
7:2=3(1)
3:2=(1)(1)
число: 1111001
Ответ: 5 единиц
1)
(1 V (A V B)) V ((A V C) & 1) ⇒ 1)(1 V A V B) V ((A V C) & 1) ⇒
1 V ((A V C) & 1) ⇒ 1 V (A V C) ⇒ 1
Ответ: 1111
2)
(A & B & ¬B) V (A & ¬A) V (B & C & ¬C) ⇒ 0 V 0 V 0 ⇒ 0
Ответ: 0000
Ответ на ваш вопрос будет б)-8
Используйте что-то типо map<char, size_t> m