Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/86: Рейтинг темы: голосов - 86, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 28.12.2015
Сообщений: 14

Найти цифровой корень заданного натурального числа

31.10.2008, 17:37. Показов 18249. Ответов 11
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1)Данны целые числа m, n(0<m<=12, 0<=n<60), Указывается момент времени: m часов, n минут.Определить наименьшее время(число полных минут), которое должно пройти до того момент, когда часовая и минутная стрелка на циферблате:
а) совподут
б)перпендекульрны друг другу

2)Найти цифровой корень заданного натурального числа n/

Если сложить все цифры числа, затем - все цифры получаемой суммы и повторять это до тех пор, пока не получится однозначное число, то такое однозначное число называется цифровым корнем числа.
Например, для 9999999 цифровой корнеь находится так:
9+9+9+9+9+9+9=63
6+3=9
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.10.2008, 17:37
Ответы с готовыми решениями:

Найти цифровой корень натурального числа х
Всем привет помогите решить задачку.Найти цифровой корень натурального числа х.Алгоритм нахождения цифрового корня в следущем: Сложить...

Найти все числа-близнецы, меньше заданного натурального числа n
Найти все числа - близнецы, меньше заданного натурального числа n

Для заданного числа a найти корень уравнения
Для заданного числа a найти корень уравнения f(x)=0, где ____(2ax+abs(a-1) при a&gt;0, f(x)=( ____(((e^x)/(sqrt(1+(a)^2)))-1

11
0 / 0 / 0
Регистрация: 28.12.2015
Сообщений: 14
01.11.2008, 00:00  [ТС]
помогите плс.
0
 Аватар для lexus_ilia
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
01.11.2008, 01:59
2-ая задача понравилось, так взялся решение проще некуда, сначало думал будет посложнее...
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program xa;
var
 a,s:integer;
begin
 Writeln('BBeDuTe 4uCLo');
 readln(a);
 s:=0;
 repeat
  s:=s+a mod 10;
  a:=a div 10;
  if (s div 10<>0) and (a=0) then
  begin
   a:=s;
   s:=0;
  end;
 until a=0;
 writeln(s); {Вывод цифрового корня}
 readln;
end.
0
(Yellow_Duck)
 Аватар для MadMag
1261 / 130 / 15
Регистрация: 16.10.2008
Сообщений: 733
01.11.2008, 10:25
Такой вопрос, в корне меняюющий решения, от боллее длинному к более простому или наоборот...как стрелки идут? отрывисто? то бишь вот часовая стрелка весь час стоит на отдном делении, а минутная всю минуту, а потом резко срываются и идут на другое деление???
или плавное движение?? тогда будет мягко говоря куево решать
0
 Аватар для lexus_ilia
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
01.11.2008, 11:40
Code
1
часовая стрелка весь час стоит на отдном делении,
Я помогу тебе понять условие, когда говорят
Данны целые числа m
то выдут расчёт на то что стрелка будет стоять
0
(Yellow_Duck)
 Аватар для MadMag
1261 / 130 / 15
Регистрация: 16.10.2008
Сообщений: 733
01.11.2008, 11:49
Ладно, решу еслли не уеду
0
 Аватар для lexus_ilia
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
01.11.2008, 12:12
держи 1-ую:
Code
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
Program xa;
var
 m,n:integer;
begin
 Writeln('BBeDuTe BpeM9 (m,n)');
 readln(m,n);
 if m>8 then
  m:=m-6;
 if n>30 then
  n:=n-30;
 if 5*m<>n then
  writeln('Do CoBnaDeHu9 MuHyTHou Hado npoutu ' ,abs(5*m-n), ' MuHyT')
 else
  writeln('ctpeLKu y}l{E CoBnaDaI-OT');
 if (5*m+15<>n) or (5*m-15<>n) then
 begin
  if abs(5*m+15-n)<abs(5*m-15-n) then
   writeln('MuHyTHou Hado npoutu ' ,abs(5*m+15-n), ' MuHyT')
  else
   writeln('MuHyTHou Hado npoutu ' ,abs(5*m-15-n), ' MuHyT')
 end
 else
  writeln('CtPeLKu yje HaxoD9TC9 B cocto9Huu nepneHdeKyL9PHOCTu');
 readln;
end.
YeLLoW DucK, можешь не волноваться, мне и это задачка понравилась...
0
(Yellow_Duck)
 Аватар для MadMag
1261 / 130 / 15
Регистрация: 16.10.2008
Сообщений: 733
01.11.2008, 12:52
мне тоже понравиалась...ток я собираюсь все некогда решать

Добавлено через 1 минуту 19 секунд
тока стрелки совпали означает по-мойму, что одна на одной

только у тебя про перпендикуяр часто не правиьные ответы выдает, наприемр введи ну скажему 4 11
он гон какой то пишет
0
 Аватар для lexus_ilia
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
01.11.2008, 22:16
ну ввёл, поучил ответ
До совпадения 9 минут осталось пройти
До перпендекуляра 6 минут

Если тебе кажется что не правильно, то давай разбираться, 4 часа=20 минут (на циферблате) 20-11=9 минут (минимальное время до совпадения).
Перпендекуляр у 4 часов (20 минут) является 5 минут (1 час) и 35 минут (7 часов).
т.е. к 11 ближе 5, значит abs(5*m-15-n)= 6 минут.
В задаче не сказано условие, что стрелка движется по часовой...а если по часовой, то малёк по другому считать надо...
0
0 / 0 / 0
Регистрация: 28.12.2015
Сообщений: 14
02.11.2008, 10:47  [ТС]
Стрелки идут по часаовой, а по какой еще они могут идти?о_О
0
 Аватар для lexus_ilia
3067 / 727 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
02.11.2008, 12:49
епт ну тогда надо изменить малёк
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program xa;
var
 m,n:integer;
begin
 Writeln('BBeDuTe BpeM9 (m,n)');
 readln(m,n);
 if 5*m<>n then
  writeln('Do CoBnaDeHu9 MuHyTHou Hado npoutu ' ,abs(5*m-n), ' MuHyT')
 else
  writeln('ctpeLKu y}l{E CoBnaDaI-OT');
 if (5*m+15<>n) then
   writeln('MuHyTHou Hado npoutu ' ,abs(5*m-15-n), ' MuHyT')
 else
  writeln('CtPeLKu yje HaxoD9TC9 B cocto9Huu nepneHdeKyL9PHOCTu');
 readln;
end.
А на счёт
а по какой еще они могут идти?
Есть понятие усложнения задания, если по часовой то полегче..
0
ridr-60
23.11.2010, 16:35
А вы не могли бы написать просто программу
Даны целые числа M и N (0<M<=12, 0<=N<=60), указывающие момент времени: «M часов, N минут». Определить наименьшее время (число полных минут), которое должно пройти до того момента, когда часовая и минутная стрелки совпадут.
и желательно нормальными буквами, просто никак не могу понять что вы там имеете ввиду, кстати нужно сделать со стрелочными часами, идущими по кругу.
Заранее благодарен.
Программу надо сделать без всяких перпендикуляров, просто найти через какое время совпадут стрелки часовая и минутная.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.11.2010, 16:35
Помогаю со студенческими работами здесь

Рекурсия. Найти сумму цифр заданного натурального числа.
Найти сумму цифр заданного натурального числа

Для заданного натурального числа n найти старшую цифру
Заранее спасибо!

Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа
Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа. Запросы продолжаются до тех пор,...

Напишите функцию, которая находит цифровой корень числа
Доброго времени суток, столкнулся с проблемой при написании программы ддля задачи: Напишите функцию, которая находит цифровой корень числа....

Составить функцию для нахождения наименьшего нечетного натурального делителя k (k≠1) любого заданного натурального числа n
Составить функцию для нахождения наименьшего нечетного натурального делителя k (k≠1) любого заданного натурального числа n. И если...


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

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru