Var n,k1,k2:integer;
function Kol(n:integer;Var k1:integer):integer;
Begin
    While n>0 do
    Begin
     if n mod 10 = 2 then inc(k1);
      n:=n div 10;
    End;
End;
Begin
    write('Введите число: ');readln(n);
    k1:=0;
    Kol(n,k1);
    writeln('Двоек в числе = ',k1);
    readln;
End.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.05.2017, 10:16

Ответы с готовыми решениями:

Дано натуральное четное число п. Разработать рекурсивную функцию для вывода на экран следующей картинки:
Помогите пожалуйста, дано натуральное четное число п. Разработать рекурсивную функцию для вывода...

Написать рекурсивную функцию для расчета степени n вещественного числа a (n — натуральное число)
Помогите пожалуйста, написал программу, но без рекурсива. Не понимаю как он вообще должен выглядеть...

Написать рекурсивную функцию для расчета степени n вещественного числа a (n — натуральное число)
В некоторых языках программирования (например, в Паскале) не преду-смотрена операция возведения в...

Написать рекурсивную функцию для расчета степени n вещественного числа a (n – натуральное число)
Написать рекурсивную функцию для расчета степени n вещественного числа a (n – натуральное число).

	30.05.2017, 10:16

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.05.2017, 10:16

Помогаю со студенческими работами здесь

Написать рекурсивную функцию для определения, является ли заданное натуральное число простым
Уважаемые форумчани!!! Помогите написать рекурсивную функцию для определения, является ли заданное...

Дано натуральное число n. Вычислить сумму используя рекурсивную функцию
Sn=1/1*3+2/3*5+3/5*7+..+n/(2n-1)(2n+1); Понимаю, что ошибка в рекурсии, но не понимаю...

Написать рекурсивную функцию подсчета количества вхождений в дерево заданного числа на заданном уровне
Задано бинарное дерево,в вершинах которого расположены целые числа.Написать рекурсивную функцию...

Дано натуральное число N. Написать программу для нахождения количества четных цифр на нечетных местах
Без массива и попроще пожалуйста.

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх