Question

Дано натуральное число.Определить,какая цифра встречается в нём чаще-1 или 9. Pascal

Answer 1

Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
end.

Answer 2

А вот так это можно написать на современном Паскале, но мало где этому учат:

// PascalABC.Net 3.0, сборка 1066
begin
  var s:=ReadInteger('Введите натуральное число: ').ToString;
  var k1:=s.Where(x->x='1').Count;
  var k9:=s.Where(x->x='9').Count;
  if k1>k9 then Writeln('Единиц больше')
  else
    if k9>k1 then Writeln('Девяток больше')
    else Writeln('Единиц и девяток поровну')
end.

Тестовое решение:
Введите натуральное число:  231192
Единиц больше

Answer 3

Для решения данной задачи воспользуемся языком программирования Pascal.

Алгоритм решения задачи будет следующий: 1. Вводим натуральное число. 2. Инициализируем две переменные count1 и count9, которые будут считать количество вхождений цифры 1 и 9 соответственно. 3. Проходим по всем цифрам числа с помощью цикла, разделяя число на 10 и получая остаток от деления на 10 на каждой итерации. При этом проверяем, равна ли текущая цифра 1 или 9, и увеличиваем соответствующий счетчик. 4. Сравниваем значения count1 и count9 и выводим на экран соответствующий результат.

Вот реализация данного алгоритма на языке Pascal:

program CountDigits;

var
  num, digit, count1, count9: integer;

begin
  // Шаг 1: Вводим натуральное число
  write('Введите натуральное число: ');
  readln(num);
  
  // Шаг 2: Инициализируем счетчики
  count1 := 0;
  count9 := 0;
  
  // Шаг 3: Проходим по всем цифрам числа
  while (num <> 0) do
  begin
    digit := num mod 10;
    
    // Проверяем текущую цифру
    if (digit = 1) then
      count1 := count1 + 1
    else if (digit = 9) then
      count9 := count9 + 1;
    
    num := num div 10;
  end;
  
  // Шаг 4: Выводим результат
  if (count1 > count9) then
    writeln('В числе чаще встречается цифра 1')
  else if (count1 < count9) then
    writeln('В числе чаще встречается цифра 9')
  else
    writeln('В числе одинаковое количество цифр 1 и 9');
end.

После запуска программы пользователю будет предложено ввести натуральное число. Программа вычислит количество вхождений цифр 1 и 9 и выведет на экран, какая цифра встречается чаще. Если количество вхождений цифр 1 и 9 одинаково, программа выведет соответствующее сообщение "В числе одинаковое количество цифр 1 и 9".