Аватар для Lepsev
66 / 14 / 1
Регистрация: 16.12.2009
Сообщений: 253

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

07.02.2010, 16:09. Показов 2626. Ответов 5
Метки нет (Все метки)

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

Помогите, а то мне вообще вилы =(
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
07.02.2010, 16:09
Ответы с готовыми решениями:

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

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

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

5
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
07.02.2010, 16:28
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses crt;
var n,a,s:longint;
    mx,i,k:byte;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
{ищем наибольшую цифру}
a:=n;
mx:=0;
while a>0 do{пока не ноль}
 begin
  if a mod 10>mx then mx:=a mod 10;{отделяем цифры с конца и сравниваем}
  a:=a div 10;{сокращаем число}
 end;
writeln('Наибольшая цифра=',mx);
{сколько раз встречается}
a:=n;
k:=0;
while a>0 do
 begin
  if a mod 10=mx then k:=k+1;
  a:=a div 10;
 end;
writeln('Она встречается ',k,' рз.');
{составляем минимальное из цифр числа}
s:=0;
for i:=0 to 9 do{начиная с 0 ищем в числе цифры по возрастанию}
 begin
  a:=n;{запоминаем число}
  while a>0 do
   begin
    k:=a mod 10;{ищем цифру 0.1.2...9}
    if k=i then s:=s*10+k;{нашли - выводим}
    a:=a div 10;{сокращаем число на 10 и повторяем пока не проверим все цифры}
   end;
 end;
write('Минимальное число=',s);
readln
end.
1
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
07.02.2010, 17:20
мой вариант. отличие в основном в поиске максимального и нахождения его кол-ва.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Var
 N, A, i, mx: longint;
Begin
 Readln(N);
 For i:=9 downto 0 do
  Begin
   mx:=0;
   A:=N;
   While A<>0 do
    Begin
     If A mod 10 = i then inc(mx);
     A:=A div 10;
    End;
   If mx<>0 then
    Begin
     Writeln('Максимальное число: ',i);
     Writeln('Встречается ',mx,' раз');
     break;
    End;
  End;
 mx:=0;
 For i:=0 to 9 do
  Begin
   A:=N;
   While A<>0 do
    Begin
     If A mod 10 = i then mx:=mx*10+i;
     A:=A div 10;
    End;
  End;
 Writeln('Минимальное число: ',mx);
 Readln;
End.
1
 Аватар для Lepsev
66 / 14 / 1
Регистрация: 16.12.2009
Сообщений: 253
08.02.2010, 14:34  [ТС]
Благодарю душевно!

Добавлено через 18 часов 4 минуты
Уважаемый TAVulator. Подскажите пожалуйста, Delphi "ругается" на break. Чем можно его заменить?
Цитата Сообщение от TAVulator Посмотреть сообщение
break;
End;
End;
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
08.02.2010, 19:13
Цитата Сообщение от Lepsev Посмотреть сообщение
Delphi "ругается" на break. Чем можно его заменить?
вообще-то это писалось для Pascal.
Заменить можно либо goto либо цикл заменить на While.
1
 Аватар для Lepsev
66 / 14 / 1
Регистрация: 16.12.2009
Сообщений: 253
10.02.2010, 11:04  [ТС]
Всё работает! Огромное человеческое спасибо! Буквально спасли
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.02.2010, 11:04
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Мастер-класс по микросервисам на Node.js
Reangularity 21.06.2025
Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .
Управление Arduino из WPF приложения
Wired 21.06.2025
Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .
Звёздная пыль
kumehtar 20.06.2025
Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .
Создание нейросети с PyTorch
AI_Generated 19.06.2025
Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .
JWT аутентификация в ASP.NET Core
UnmanagedCoder 18.06.2025
Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .
Краткий курс по С#
aaLeXAA 18.06.2025
Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .
50 самых полезных примеров кода Python для частых задач
py-thonny 17.06.2025
Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .
C# и продвинутые приемы работы с БД
stackOverflow 17.06.2025
Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .
Angular: Вопросы и ответы на собеседовании
Reangularity 15.06.2025
Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .
Архитектура Onion в ASP.NET Core MVC
stackOverflow 15.06.2025
Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru