Дано натуральное число n. составьте программу которая находит количество цифр кратных 5 и их разряды в числе n. ​

1 текст:      

 

(буква)       (десятичный код)     (код)

 

 

    с                       243                             11110011

      у                       213                             11010101

    а                       193                             11000001

                            206                             11001110

    ( - )                     45                               00101101

                            208                             11010000

    а                       193                             11000001

                            206                             11001110

 

 

 

2 текст:           (.яз)

 

 

(буква)             (десятичный код)     (двоичный код)

 

 

    i                         73                                 01001001 

  b                         66                                 01000010

  m                         77                                 01001101

 

 

 

  примечания: ответы даны на показанные вами буквы и знаки.

( - )   - обозначение дефиса.

буквы не кодируются в кои-8, используют (не беспокойтесь, это совершенно правильный подход).

Var a: byte; b: integer; begin  writeln('введите день месяца'); readln(b); writeln('введите номер месяца');     readln(a);                   case a of          1: writeln(b,' янавря');           2: writeln(b,' февраля');         3: writeln(b,' марта ');           4: writeln(b,' апреля ');         5: writeln(b,' мая');         6: writeln(b,' июня ');           7: writeln(b,' июля');         8: writeln(b,' августа');       9: writeln(b,' сентября');       10: writeln(b,' октября');       11: writeln(b,' ноября');         12: writeln(b,' декабря');       else writeln('месяца №', a,'нет');     end;         end.