0 / 0 / 0
Регистрация: 08.04.2010
Сообщений: 36

Сколько раз в числе встречается максимальная цифра

19.04.2010, 20:30. Показов 3091. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1.Дано натуральное число n.Сколько раз в нём встречается максимальная цифра?
2.Найти 10 первых натуральных чисел больших 100,кратных 9 и оканчивающихся на 7.
задачи на while.если можете решите БЕЗ МАССИВОВ.помогите пожалуйста
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.04.2010, 20:30
Ответы с готовыми решениями:

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

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

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

9
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
19.04.2010, 20:39
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
1)
k:=0;
t:=0;
repeat
 if (n mod 10)>t  then
  begin
   k:=1;
   t:= n mod 10;
  end;
 if (n mod 10)=t then inc(k);
n:=n div 10; 
until(n<=0);
0
0 / 0 / 0
Регистрация: 08.04.2010
Сообщений: 36
19.04.2010, 20:49  [ТС]
спасибо,но прога не работает...
0
 Аватар для yanyk1n
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
19.04.2010, 20:57
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var n:longint;
max,k:integer;
 
begin
 clrscr;
 write('-> ');
 readln(N);
 max:=-1;
 k:=0;
 while N<>0 do
 begin
  if n mod 10 > max then
  begin
   max := n mod 10;
   k := 1;
  end else if n mod 10 = max then inc(k);
  n := n div 10;
 end;
 writeln(max,' встречается ',k,' раз');
 readln;
end.
0
0 / 0 / 0
Регистрация: 08.04.2010
Сообщений: 36
20.04.2010, 11:46  [ТС]
Напишите плиз хоть кто-нибудь!а то если вводишь число 12344,то она работает,а если 5543,то нет.помогите

Добавлено через 32 минуты
Может кто-нить поможет?
0
 Аватар для DeLuxe
156 / 158 / 93
Регистрация: 01.01.2010
Сообщений: 398
20.04.2010, 13:09
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program tmp;
uses crt;
var
   n:longint;
   max,k,i,x,code:integer;
   st:string;
begin
 clrscr;
 readln(n);
 str(n,st);
 val(st[1],max,code);
 for i:=1 to length(st) do begin {Определяем max}
                           val(st[i],x,code);
                           if x>max then max:=x;
                           end;
 k:=0;
 for i:=1 to length(st) do begin {Считаем сколько раз встречается max в числе}
                           val(st[i],x,code);
                           if x=max then inc(k);
                           end;
 write('max=',max,', k=',k);
 readkey;
 end.
0
Платежеспособный зверь
 Аватар для кот Бегемот
8963 / 4386 / 1654
Регистрация: 28.10.2009
Сообщений: 11,644
20.04.2010, 13:55
DeLuxe, это задача не на строки
0
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
20.04.2010, 14:01
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
max:=-1;
m:=n;
while n>0 do
  begin
l:=n mod 10;
if l>max then max:=l;
n:=n div 10;
end;
col:=0;
while m>0 do 
  begin
l:=m mod 10;
if l=max then col:=col+1;
m:=m div 10;
end;
writeln('Max=',max,'  Kol=',kol);
0
Платежеспособный зверь
 Аватар для кот Бегемот
8963 / 4386 / 1654
Регистрация: 28.10.2009
Сообщений: 11,644
20.04.2010, 14:10
1.Дано натуральное число n.Сколько раз в нём встречается максимальная цифра?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
n:longint;
max,k,t:integer;
begin
writeln('vvedite chislo');
readln(n);
k:=0;
repeat
  if (n mod 10)>max then
  begin
  max:=n mod 10;
  k:=1;
  end
  else if n mod 10=max then inc(k);
  n:=n div 10;
until(n=0);
writeln('naibolshaya cifra ',max,' vstrechaetsya ',k,' raz');
readln;
end.
Добавлено через 5 минут
2.Найти 10 первых натуральных чисел больших 100,кратных 9 и оканчивающихся на 7.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
n,k:integer;
begin
n:=100;
repeat
inc(n);
if (n mod 9=0)and(n mod 10=7)then 
begin
write(n:5);
inc(k);
end;
until k=10;
readln;
end.
0
 Аватар для DeLuxe
156 / 158 / 93
Регистрация: 01.01.2010
Сообщений: 398
20.04.2010, 15:41
кот Бегемот
А разница как я её решаю? Вам есть дело до этого? Решайте как считаете нужным, я считаю это нормальным решением в отличие от детского сада с дивами\модами. А понравится ли автору решение это уже его дело, мое дело написать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.04.2010, 15:41
Помогаю со студенческими работами здесь

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

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

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

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

Определить, сколько раз в заданном натуральном числе M встречается наибольшая цифра
составьте программу,определяющую сколько раз в заданном натуральном числе M встречается наибольшая цифра.


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

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

Новые блоги и статьи
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
Изучаем новый шаблон ИИ-чата .NET AI Chat Web App
stackOverflow 10.07.2025
В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .
Результаты исследования от команды ARP (июль 2025 г.)
Programma_Boinc 10.07.2025
Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .
Angular vs Svelte - что лучше?
Reangularity 09.07.2025
Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework
UnmanagedCoder 09.07.2025
Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
Как использовать Bluetooth-модуль HC-05 с Arduino
Wired 08.07.2025
Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .
Руководство по структурам данных Python
AI_Generated 08.07.2025
Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах
Programma_Boinc 08.07.2025
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
Раскрываем внутренние механики Android с помощью контекста и манифеста
mobDevWorks 07.07.2025
Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru