Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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