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

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

Question

Информатика

Довмонт

9 апреля, 21:37

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

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

+2

Ответы (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