Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
3 / 3 / 0
Регистрация: 12.04.2010
Сообщений: 39
1

Сколько раз в числе встречается цифра, равная первой?

18.04.2010, 16:38. Показов 1046. Ответов 3
Метки нет (Все метки)

Дано натуральное число. Определить, сколько раз в нем встречается цифра, равная первой.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.04.2010, 16:38
Ответы с готовыми решениями:

Сколько раз в числе встречается цифра, равная старшей?
Доброго времени суток уважаемые. Помогите пожалуйста с задачкой, не могу разобраться. В общем...

Дано натуральное число. Определить, сколько раз в нем встречается цифра, равная первой
1).Дано натуральное число. Определить, сколько раз в нем встречается цифра, равная первой....

Сколько раз в числе встречается максимальная цифра
1.Дано натуральное число n.Сколько раз в нём встречается максимальная цифра? 2.Найти 10 первых...

Сколько раз заданная цифра встречается в числе N
Вот задание: сколько раз заданная цифра встречается в числе N? Срочно нужно!Ооочень!

__________________
3
1170 / 476 / 83
Регистрация: 04.03.2010
Сообщений: 1,019
18.04.2010, 16:44 2
Pascal
1
2
3
4
5
6
7
8
9
program Cool;
var chislo:string;i,count:integer;
BEGIN
readln(chislo);
for i:=1 to Length(chislo)-1 do
  if chislo[i]=chislo[1] then Inc(count); 
writeln('Result=',count);
readln;
END.
1
Почетный модератор
11175 / 4131 / 413
Регистрация: 12.06.2008
Сообщений: 11,974
18.04.2010, 16:48 3
Цитата Сообщение от strateg0793 Посмотреть сообщение
for i:=1 to Length(chislo)-1 do
for i:=1 to Length(chislo) do
Минус один не надо... chislo[Length(chislo)] существует.
И в данном случае результат всегда будет не менее 1, т.к. сама первая цифра тоже учитывается. Если её считать не надо, тогда надо начинать перебор со второго символа.
1
Retired
7721 / 2553 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
18.04.2010, 18:10 4
Варианты с использованием строк обычно не принимают, поэтому добавлю еще и такой вариант
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  temp,N: integer;
  a: array [0..9] of byte;
begin
  ReadLn(N);
  for temp := 0 to 9 do
    a[temp] := 0;
  temp := N;
  while temp <> 0 do
  begin
    Inc(a[temp mod 10]);
    if temp div 10 = 0 then
      WriteLn('Result: ', a[temp]);
    temp := temp div 10;
  end;
  ReadLn;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2010, 18:10

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Сколько раз первая цифра встречается в данном числе
1.Дано натуральное число : 1)Сколько раз первая цифра встречается в данном числе? 2)верно...

Подсчитать, сколько раз в числе встречается каждая цифра от 0 до 9
Вводится любое число. Нужно подсчитать сколько раз в нем встречается каждая цифра от 0 до 9? В...

Сколько раз заданная цифра встречается в заданном целом числе?
Нужно вот задачки решить:1.найти сумму цифр числа больших пяти 2.сколько раз заданная цифра...

Сколько раз в заданном натуральном числе n встречается заданная цифра k?
Определить, сколько раз в заданном натуральном числе n встречается заданная цифра k....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.