48

Ввести натуральное число и определить какие цифры встречаются несколько раз…

23 августа 2022

Ввести натуральное число и определить какие цифры встречаются несколько раз Массивы использовать нельзя. Можно решать только через: For,while,if,repeat,until,else и все. Кто-нить сможет помочь?

категория: информатика



44

program zifry; var n,nn,i,j,k: integer; beginwrite ('Введите число: '); readln (n); for i: =0 to 9 dobegink: =0; nn: =n; while nn<>0 dobeginj: =nn mod 10; if j=i then inc (k); nn: =nn div 10; end; writeln ('цифра ',i,' встречается ',k,' раз'); end; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...