Сколько раз данная цифра встречается в числе?

Паскаль. Через while

Question

Информатика

Вестита

8 ноября, 19:43

Сколько раз данная цифра встречается в числе?

Паскаль. Через while

+5

Ответы (1)

Знаете ответ?

Славуся · Answer 1

Var

A, S:integer;

B:byte;

Begin

WriteLn ('Введи число') ;

ReadLn (A) ;

WriteLn ('Введи цифру') ;

ReadLn (B) ;

S:=0;

While A>0 do

Begin

if A mod 10 = B then S:=S+1;

A:=A div 10

End;

WriteLn (S)

End.

Сколько раз данная цифра встречается в числе?Паскаль. Через while

Сколько раз данная цифра встречается в числе?

Паскаль. Через while