Var n, digit, ans : integer;
begin
read(n);
ans := 0;
while (n > 0) do begin
digit := n mod 10;
if ((digit = 1) or (digit = 3) or (digit = 9)) then
ans := ans + 1;
n := n div 10;
end;
writeln(ans);
<span>end.</span>
{Возможно это можно более просто организовать, однако программа работает :) }
Var a,b,ax,x: integer; flag: boolean;
Begin
Readln(a,b); ax:=a;
If (a>=0) and (b>=0) then flag:=true
else begin a:=abs(a); b:=abs(b); flag:=false; end;
If (a=0) or (b=0) then write('0')
else begin while b > 1 do
begin a:=a+ax; dec(b); end; x:=a;
if flag then write(x) else write(x-x*2); end;
End.
Кнопка "ПУСК" - 8
Управляющая кнопка - 14
Папка - 1
Полоса прокрутки - 4
Ярлык - 5
Меню - 2
Панель задач - 9
Кнопка "закрыть окно" - 3
Быстрый запуск - 13
"Свернуть окно" - 12
Системный трей - 15
Развернуть окно - 7
Окно программы - 11
Заголовок окна - 10
Поле ввода - 6
Кнопка программы - 16
2 4 8 16 32
через 3 , 6 , 9, 12 24 часа соответственно
2324-1326=998 (разность двух данных чисел)
=> x=998/108
x=9 9 в двоичной системе это 0000 1001