Дано натуральное число. Определить сколько раз в нём встречается цифра а. на паскале с помощью оператора цикла: whileББУДУ ОЧЕЕЕЕНЬ БЛАГОДАРНА - №2055719

Дано натуральное число. Определить сколько раз в нём встречается цифра а.

на паскале с помощью оператора цикла: while
ББУДУ ОЧЕЕЕЕНЬ БЛАГОДАРНА
- Предмет:
  Информатика
- Автор:
  benjijawr
- 5 лет назад

Ответы 1

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.
- Автор:
  bunky
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years