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

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

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

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

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

Pascal

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

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

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

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	14.10.2010, 19:46	4
	Заводим массив из 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