Дано некоторое натуральное число. Определить сколько и каких цифр встречается в записи числа. Результат обработки: <цифра> - <количество>.

@n1c3w0lf · Регистрация: 14.10.2010

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста. Почему-то не получается. Заранее спасибо

@кот Бегемот · 14.10.2010, 19:34

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
a:longint;
b:array[0..9]of integer;
i:integer;
begin
readln(a);
repeat
inc(b[a mod 10]);
a:=a div 10;
until a=0;
for i:=0 to 9 do
if b[i]<>0 then writeln('cifr ',i,'=',b[i]);
readln;
end.

@n1c3w0lf · 14.10.2010, 19:38 **[ТС]**

Огромное спасибо, а можно комментарии?особенно 8 строки

@кот Бегемот · 14.10.2010, 19:46

Заводим массив из 10 элементов, номера элементов (от 0 до 9) совпадают с цифрами, поэтому, выделив цифру, например 5, увеличиваем элемент а[5] на 1 командой inc(b[a mod 10]), которая переводится так:

inc- увеличить на 1
b[] - элемент массива
a mod 10 - последняя цифра числа

например, если число 37686,
то 8 строка добавит 1 к элементу а[6],
потом эту 6 мы отбросим, последняя цифра станет 8 и на 1 увеличится элемент а[8], потом опять 6, потом 3

Новые блоги и статьи Все статьи Все блоги /
Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .	Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .

@n1c3w0lf 0 / 0 / 0 Регистрация: 14.10.2010 Сообщений: 17

	Дано некоторое натуральное число. Определить сколько и каких цифр встречается в записи числа. Результат обработки: <цифра> - <количество>. 14.10.2010, 19:23. Показов 3035. Ответов 3 Метки нет (Все метки) Помогите пожалуйста. Почему-то не получается. Заранее спасибо 0

@n1c3w0lf 0 / 0 / 0 Регистрация: 14.10.2010 Сообщений: 17
	14.10.2010, 19:38 [ТС]
	Огромное спасибо, а можно комментарии?особенно 8 строки 0

@кот Бегемот Платежеспособный зверь 8963 / 4386 / 1654 Регистрация: 28.10.2009 Сообщений: 11,644
	14.10.2010, 19:46
	Заводим массив из 10 элементов, номера элементов (от 0 до 9) совпадают с цифрами, поэтому, выделив цифру, например 5, увеличиваем элемент а[5] на 1 командой inc(b[a mod 10]), которая переводится так: inc- увеличить на 1 b[] - элемент массива a mod 10 - последняя цифра числа например, если число 37686, то 8 строка добавит 1 к элементу а[6], потом эту 6 мы отбросим, последняя цифра станет 8 и на 1 увеличится элемент а[8], потом опять 6, потом 3 1

Опции темы