Найти кол-во четных цифр+цифра A

[levine]

Дано натуральное число:
-найти количество четных цифр числа;
-верно ли.что данная цифра A встречается в числе более двух раз ,а само число делится на нее?
Спасибо заранее)

[Stilet]

И в чем проблема ?
Не знаешь как разбить число на цифры?

[levine]

во-первых,я не знаю сколько цифр в числе.
во-вторых,с цифрой A вообще не разберусь.как узнать сколько раз она встречается в числе?
ну а вообще да,не знаю.поэтому помощи и прошу

[Poma][a]

Ну раз такая плохая школьная программа бери самоучители, в нете их тьма, эх ладно...

const
       NOT_ODD = ['0', '2', '4', '6', '8'];

var
        s : string;
        i, count,  countA : Integer;

begin
        ReadLn (s);
 
        count := 0;
        for i := 1 to Length(s) do
                    if s[i] in NOT_ODD then
                                Inc (count);
                 
        WriteLn ('В данном числе ', count, ' четных чисел');
end.

var
        s2, a2 : string;
        s1, a1 : Integer;
        i, count : Integer;

begin
        ReadLn (s1);
        ReadLn (a1);

        if s1 mod a1 <> 0 then
              WriteLn ('Должен тебя разочаровать, но тебе врут...') 
        else begin
             Str (s1, s2);
             count := 0;
             i := 1;
             while (i <= Length(s2)) and (count < 2) do begin
                        if s2[i] = a then
                             Inc (count);
                         Inc (i);
             end;
             WriteLn ('Угу, правда')
end.

P.S. не проверял

[TinMan]

Сообщение от Poma][a

P.S. не проверял

А тут и проверять не надо, и так видно, что всегда будет "угу, правда", если число делится на А.

P.S.
not_odd == even // учи англ. ))

P.P.S.
WriteLn ('В данном числе ', count, ' четных цифр');

P.P.P.S.
Зачем связываться с символьным представлением, а создавать множество?.. Кстати, ты не прверяешь корректность ввода - это тебе может боком выйти. Я понимаю, что преимущество то, что длина "числа" может быть намного больше, чем все целые типы, но в условии про это ничего не сказано, так что я бы и не заморачивался.

var
  n: int64;
  a,count,countA,d: word;
begin
  readln(n);
  repeat readln(a) until (a>=0) and (a<10);
  count:= 0;
  countA:= 0;
  while n<>0 do begin
    d:= n mod 10;
    if not odd(d) then inc(count);
    if d=a then inc(countA);
    n:= n div 10
  end;
  writeln(count);
  writeln((a>0) and (n mod a=0) and (countA>2))
end.

P.P.P.P.S. не проверял.. ))