0 / 0 / 0
Регистрация: 06.04.2010
Сообщений: 8
1

повтор цифр

20.08.2010, 22:36. Показов 1505. Ответов 4
Метки нет (Все метки)

Здравствуйте) Прошу помочь с задачей:
Выяснить, имеет ли целое число N одинаковые цифры. Если имеет, то какие и сколько раз повторяется каждая цифра.
Совсем не понимаю, как ее сделать(
Заранее спасибо)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.08.2010, 22:36
Ответы с готовыми решениями:

Строки.Удаление повтор символовю
Народ помогите решить 2 задачи пожалуйста. 1)Строка состоит из натуральных чисел, разделенных...

Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из...

Сумма всех цифр чисел совпадает с суммой цифр данного числа.
Число n вводится с клавиатуры. Составить программу, выводящую на экран все числа в интервале от 10...

Сумма всех цифр чисел совпадает с суммой цифр данного числа.
Число n вводится с клавиатуры. Составить программу, выводящую на экран все числа в интервале от 10...

4
117 / 114 / 89
Регистрация: 31.10.2009
Сообщений: 191
21.08.2010, 00:53 2
ну например так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  i:integer;
  s:string;
  a:array[1..9] of byte;
  b:byte;
begin
  readln(s);
  for i:= 1 to length(s) do begin
    val(s[i],b);
    a[b]:= a[b]+1;
  end;
  for i:= 1 to 9 do
    if a[i] > 1 then writeln(i,' ',a[i], ' raz');
end.
1
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
21.08.2010, 07:16 3
Если не использовать строки, то так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  i:integer;
  n:longint;
  a:array[0..9] of byte;//0 тоже цифра
  b:byte;
begin
  readln(n);
  while n>0 do 
   begin
    b:=n mod 10;
    a[b]:= a[b]+1;
  end;
  for i:= 0 to 9 do
  if a[i] > 1 then writeln(i,' ',a[i], ' raz');
  readln
end.
1
0 / 0 / 0
Регистрация: 06.04.2010
Сообщений: 8
21.08.2010, 09:51  [ТС] 4
Law[L]esS
Спасибо)
Но при запуске показывает ошибку в процедуре VAL.

Puporev
Спасибо) все работает)
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
21.08.2010, 09:54 5
Для val нужно так
Pascal
1
2
3
var c:integer;
........
val(s[i],b,c);
Добавлено через 39 секунд
возможно и
b:integer, хотя не уверен...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.08.2010, 09:54
Помогаю со студенческими работами здесь

Дано натуральное число, верно ли что цифр а больше чем цифр б
Дано натуральное число, верно ли что цифр а больше чем цифр б??(через div и mod )как сделать?

Вывести на экран количество цифр числа N и сумму его цифр
Дано натуральное число N (N<10255). Вывести на экран количество цифр числа N и сумму его цифр.

Найдите все трехзначные числа, сумма цифр которых равна произведению цифр
Найдите все трехзначные числа, сумма цифр которых равна произведению цифр

Найти кол-во цифр числа, больших 6 и произведение цифр, не удовлетворяющих данному критерию
Дано натуральное число. Написать программу, котрая будет находить: а)кол-во цифр этого числа,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru