Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.81/21: Рейтинг темы: голосов - 21, средняя оценка - 4.81
3 / 3 / 4
Регистрация: 06.05.2010
Сообщений: 45

Найти сколько раз встречается цифра 3 в записи числа n^3

30.09.2010, 10:17. Показов 4165. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Найти сколько раз встречается цифра 3 в записи числа N^3(-1000<=N<=1000).
Строки не использовать.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
30.09.2010, 10:17
Ответы с готовыми решениями:

Сколько существует трехзначных чисел, в записи которых встречается один раз цифра 2
Поиогите решить эти задачи на языке паскаль: 2. Сколь существует трехзначных чисел в записи, которых встречается только один раз цифра 2.

Дано некоторое натуральное число. Определить сколько и каких цифр встречается в записи числа. Результат обработки: <цифра> - <количество>.
Помогите пожалуйста. Почему-то не получается. Заранее спасибо

посчитать сколько раз встречается каждая цифра
Помогите решить пожалуйста. Дан файл содержащий представление числа пи с пятьюстами знаками. Определите сколько раз в этом файле...

3
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
30.09.2010, 10:24
Pascal
1
2
3
4
5
6
7
n:=abs(n);
k:=0;
while n>0 do
 begin
  if n mod 10=3 then k:=k+1;
  n:=n div 10;
 end;
1
3 / 3 / 4
Регистрация: 06.05.2010
Сообщений: 45
30.09.2010, 10:49  [ТС]
мне надо для N в кубе

Добавлено через 1 минуту
Заранее спасибо
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
30.09.2010, 11:11
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
uses
  Crt;
var
  n,tmp: LongInt;
  c: byte;
begin
  ClrScr;
  repeat
    Write('N: ');
    ReadLn(n);
    tmp := n * n * n;
  until (n >= -1000) and (n <= 1000);
  WriteLn('Number: ', tmp);
  c := 0;
  if tmp < 0 then
    tmp := abs(tmp);
  while tmp <> 0 do
  begin
    if tmp mod 10 = 3 then
      Inc(c);
    tmp := tmp div 10;
  end;
  WriteLn('Result: ', c);
  ReadLn;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.09.2010, 11:11
Помогаю со студенческими работами здесь

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

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru