Есть программа на с# необходимо сделать тоже самое на паскале!
суть программы: (подсчитать количество цифр в числе не превосходящих заданной цифры, введённой с клавиатуры)
листинг:
using system;
namespace application
{
class mainclass
{
public static void main (string[] args)
{
int number;
console.write ("number: ");
number = int.parse (console.;
int digit;
console.write ("digit: ");
digit = int.parse (console.;
int result = 0;
for (; number! =0; result += number % 10 > digit ? 0 : 1, number/=10);
console.writeline ("result: " + result);
}
}
}
===== PascalABC.NET =====
begin
var s := ReadlnString('Введи целое неотрицательное число:');
var c := ReadlnChar('Введи цифру:');
Print('Цифр в числе, не превосходящих введенную,',
s.Count(p -> p <= c))
end.