найти сколько раз данная цифра встречается в числе. искомая цифра водится с клавиатуры ПАСКАЛЬ
cjhjrf1212
1
30.04.2020 00:28
1
Другие вопросы по теме Информатика
24051999z
09.09.2019 17:00
chanel00
28.04.2020 16:28
лиза2699
20.05.2020 15:05
AvdeevaJanna14
20.05.2020 15:04
Aminka555112
30.07.2019 15:10
DeNiSNoNs
30.07.2019 15:10
kuryachelenaozmgnz
22.07.2019 17:00
aser101q
22.07.2019 17:00
дядяррррр
22.07.2019 17:00
Популярные вопросы
- Ширина прямоугольника 10 см, а длина в 7 раз больше. Чему равна площадь прямоугольника?...
3 - Составте конспект на тему горение и окисление вещества в воздухе даю...
3 - УМОЛЯЯЯЮЮЮ , 5. Длина Парфенона 69,54 м. Найдите высоту храма, если его высота...
1 - Как звали полководца который возглавил карфагенское войско,во время второй...
3 - хотя бы с несколькими заданиями Укажите варианты ответов, в которых дано верное...
1 - Чебурашке. Верны ли данные утверждения? 1. Число девять тысяч четыреста три...
1 - Вкажіть ряд елементів,в якому наведені тільки ті,що утворюють основні оксиди...
1 - Decide which word is the odd one out in each of the following groups of words...
2 - Знайти суму n перших членів геометричної прогресії:1)b1=7; q=3; n=52)b1=4;...
1 - ОЧЕНЬ СИЛЬНО НАДО. ЗАРАНЕЕ...
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.