Question

СРОЧНО В Pascal!!!! ДАЮ 98 БАЛЛОВ!!!! Дано натуральное число. Определить: а) количество цифр 9 в нем; б) сколько раз в нем встречается первая цифра; в) количество нечетных цифр в нем. Составное условие и более одного неполного условного оператора не использовать; г) сумму его цифр, меньших 3; д) произведение его четных цифр, больших четырех; е) сколько раз в нем встречаются цифры 2 и 3 (всего).

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var c := ReadlnString;

 if c.Any(t -> not (t in ['0'..'9'])) then

 begin

   Print('Ошибка ввода');

   exit

 end;

 var a := c.Select(t -> t.ToDigit).ToArray;

 Writeln('a) ', c.Where(t -> t = '9').Count);

 Writeln('б) ', a.Where(t -> t = a[0]).Count);

 Writeln('в) ', a.Where(t -> t.IsOdd).Count);

 Writeln('г) ', a.Where(t -> t < 3).Sum);

 Writeln('д) ', a.Where(t -> t.IsEven and (t > 4))

     .Aggregate(1, (p, q)-> p * q));

 Writeln('е) ', a.Where(t -> (t = 2) or (t = 3)).Count);

end.

Пример

1764963253120

a) 1

б) 2

в) 7

г) 6

д) 36

е) 4

Примечание: количество цифр в числе практически не ограничено, контроль на ввод "не-цифр" имеется.

Answer 2

Привет! Вот решение задачи на нахождение указанных параметров для данного натурального числа на языке Pascal:

pascalCopy code
program TaskSolution;

var
  num, digit, firstDigit, count9, countOdd, sumLess3, prodEvenGreater4, count23: integer;

begin
  // Вводим натуральное число
  writeln('Введите натуральное число:');
  readln(num);

  // Инициализируем переменные перед обработкой
  count9 := 0;
  countOdd := 0;
  sumLess3 := 0;
  prodEvenGreater4 := 1;
  count23 := 0;
  
  // Находим первую цифру числа
  firstDigit := num;
  while firstDigit >= 10 do
    firstDigit := firstDigit div 10;
  
  // Обрабатываем число по цифрам
  while num > 0 do
  begin
    // Получаем последнюю цифру числа
    digit := num mod 10;
    
    // а) Количество цифр 9
    if digit = 9 then
      count9 := count9 + 1;
      
    // б) Количество первой цифры
    if digit = firstDigit then
      count23 := count23 + 1;
      
    // в) Количество нечетных цифр
    if odd(digit) then
      countOdd := countOdd + 1;
      
    // г) Сумма цифр, меньших 3
    if digit < 3 then
      sumLess3 := sumLess3 + digit;
      
    // д) Произведение четных цифр, больших 4
    if (digit > 4) and even(digit) then
      prodEvenGreater4 := prodEvenGreater4 * digit;
      
    // е) Количество цифр 2 и 3
    if (digit = 2) or (digit = 3) then
      count23 := count23 + 1;
      
    // Убираем последнюю цифру числа
    num := num div 10;
  end;

  // Выводим результаты
  writeln('а) Количество цифр 9 в числе:', count9);
  writeln('б) Количество первой цифры в числе:', count23);
  writeln('в) Количество нечетных цифр в числе:', countOdd);
  writeln('г) Сумма цифр, меньших 3:', sumLess3);
  writeln('д) Произведение четных цифр, больших 4:', prodEvenGreater4);
  writeln('е) Количество цифр 2 и 3 в числе:', count23);
end.

Пожалуйста, убедитесь, что вводите только натуральные числа, так как программа не проверяет валидность введенных данных.