Есть программа на с# необходимо сделать тоже самое на паскале!
суть программы: (подсчитать количество цифр в числе не превосходящих заданной цифры, введённой с клавиатуры)

листинг:

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);

}

}

}

anastasia200012 anastasia200012    2   11.01.2020 20:15    8

Ответы
margocharlip0cmwu margocharlip0cmwu  11.10.2020 00:18

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

begin

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

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

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

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

end.


Есть программа на с# необходимо сделать тоже самое на паскале! суть программы: (подсчитать количеств
Есть программа на с# необходимо сделать тоже самое на паскале! суть программы: (подсчитать количеств
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика