Question

Помогите, есть программа на С# необходимо сделать тоже самое на Паскале! Суть программы: (Подсчитать количество цифр в числе не превосходящих заданной цифры, введённой с клавиатуры)Листинг:using System;namespace Application{ class MainClass { public static void Main (string[] args) { int number; Console.Write ("Number: "); number = int.Parse (Console.ReadLine()); int digit; Console.Write ("Digit: "); digit = int.Parse (Console.ReadLine()); int result = 0; for (; number!=0; result += number % 10 > digit ? 0 : 1, number/=10); Console.WriteLine ("Result: " + result); } }}

Answer 1

===== PascalABC.NET =====

begin

 var s := ReadlnString('Введи целое неотрицательное число:');

 var c := ReadlnChar('Введи цифру:');

 Print('Цифр в числе, не превосходящих введенную,',

     s.Count(p -> p <= c))

end.

Answer 2

Вот эквивалентная программа на языке Pascal, реализующая ту же самую функциональность:

pascalCopy code
program CountDigits;
var
  number, digit, result: integer;
begin
  Write('Number: ');
  ReadLn(number);
  Write('Digit: ');
  ReadLn(digit);
  
  result := 0;
  while number <> 0 do
  begin
    if number mod 10 <= digit then
      result := result + 1;
      
    number := number div 10;
  end;
  
  WriteLn('Result: ', result);
end.

Программа на Pascal имеет аналогичную структуру и использует цикл while, чтобы перебирать цифры числа. Она также использует операторы mod и div для получения цифр и деления числа на 10 соответственно.