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

Question

48

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

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

ответить

в избранное ссылка

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

aganina · Accepted Answer

44

aganina

06 февраля 2024

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: