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.