Помогите пожалуйста Дано натуральное число. Определить: а) количество цифр 3 в нем; б)...

Question

Помогите пожалуйста
Дано натуральное число. Определить:

а) количество цифр 3 в нем;

б) сколько раз в нем встречается последняя цифра;

Comments

abc

---

Понятно.

---

Почему не помочь, если задание дано корректно?

---

Спасибо за помощь

---

Пожалуйста

---

Вы можете попросить удалить Ваше прежнее задание и получить назад свои 40 баллов. Если, конечно, там нет верных решений.

---

забейте

---

Я не понимаю этого термина

---

Я Вам говорю о том, на что Вы имеете право, как Пользователь Сервиса.

---

А будете ли Вы пользоваться этими правами - это Ваше дело.

Answer 1

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 раз(а)