var n:longint; d,dn,m,k:integer; begin Write('Введите натуральное число: '); Read(n); m:=0; k:=0; dn:=n mod 10; repeat d:=n mod 10; if d=3 then Inc(m); if d=dn then Inc(k); n:=n div 10 until n=0; Writeln('Количество цифр 3 в числе равно ',m); Writeln('Последняя цифра встречается в числе ',k,' раз(а)') end.
Тестовое решение: Введите натуральное число: 1035334030 Количество цифр 3 в числе равно 4 Последняя цифра встречается в числе 3 раз(а)
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
