Дано натуральное число. Определить сколько раз в нём встречается цифра а.
на паскале с помощью оператора цикла: while
ББУДУ ОЧЕЕЕЕНЬ БЛАГОДАРНА
Program CountA;
Uses Crt;
var a,n,x,i:integer;
begin
clrscr; // очищаем экран
write(Введите число n:);
readln(n); // ввод данных
write(Введите цифру а: );
readln(a); // ввод данных
x:=1; i:=0; i-счётчик цифр а
while (n<>0) do // Пока n не стало равным нулю
begin
x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа
if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1
n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
end;
writeln(Цифра ,а, Встречается в данном числе-, i, раз(а));
readkey; // Пауза до нажатия на любую клавишу
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
