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

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

08.04.2010, 19:31. Показов 2276. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно вот задачки решить:1.найти сумму цифр числа больших пяти
2.сколько раз заданная цифра встречается в заданном целом числе.
задачи на while.
в первой задаче не знаю как сделать,чтобы считалась сумма цифр больших 5.помогите плиз.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.04.2010, 19:31
Ответы с готовыми решениями:

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

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

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

3
Студент
 Аватар для Жека-старший
498 / 344 / 162
Регистрация: 15.03.2010
Сообщений: 601
08.04.2010, 19:40
Цитата Сообщение от wari195 Посмотреть сообщение
1.найти сумму цифр числа больших пяти
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program pr1;
var i,sum:byte; ch:longint;
begin
  writeln('Vvedi chislo');
  readln(ch);
  sum:=0;
  while ch<>0 do
  begin
    if ch mod 10>5 then sum:=sum+(ch mod 10);
    ch:=ch div 10;
  end;
  writeln('Summa- ',sum);
end.
Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program pr1;
var i,z,kol:byte; ch:longint;
begin
  writeln('Vvedi chislo');
  readln(ch);
  writeln('Vvedite zifru');
  readln(z);
  kol:=0;
  while ch<>0 do
  begin
    if (ch mod 10)=z then inc(kol);
    ch:=ch div 10;
  end;
  writeln('Kolichestvo vstrechaemosti zifri ',z,' v chisle- ',kol);
end.
Добавлено через 25 секунд
это на вторую
Цитата Сообщение от wari195 Посмотреть сообщение
2.сколько раз заданная цифра встречается в заданном целом числе.
задачи на while.
1
0 / 0 / 0
Регистрация: 08.04.2010
Сообщений: 36
08.04.2010, 19:44  [ТС]
Спасибо большое.а то я if не туда запихнул.
0
Студент
 Аватар для Жека-старший
498 / 344 / 162
Регистрация: 15.03.2010
Сообщений: 601
08.04.2010, 20:12
пожалуйста...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.04.2010, 20:12
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
EmBitz, создание проекта, отладка, прошивка
locm 15.07.2025
Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .
Трассировка корутин Kotlin с OpenTelemetry
mobDevWorks 14.07.2025
Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
Облачные приложения на Rust: руководство по архитектуре микросервисов
golander 13.07.2025
Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .
Как Node.js выполняет асинхронные операции
Reangularity 13.07.2025
Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .
Как писать чистый, тестируемый и качественный код на Python
py-thonny 12.07.2025
Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .
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) и новая волна компилируемых фреймворков. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru