Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
0 / 0 / 0
Регистрация: 04.04.2015
Сообщений: 39

Дано натуральное число n; выяснить, является ли оно степенью числа 5

07.04.2015, 19:17. Показов 3781. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
2. Дано натуральное число n. Выяснить, является ли оно степенью числа 5
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.04.2015, 19:17
Ответы с готовыми решениями:

Ввести натуральное число n. Определить, является ли оно степенью числа 5
Ввести натуральное число n. Определить, является ли оно степенью числа 5. Программа должна вывести ответ в виде «yes | no».

Задача по теме функции и процедуры. Дано число N. Проверить является ли оно степенью пятерки
Дано число N. Проверить является ли оно степенью пятерки(написать функцию позволяющую распознавать степени пятерки) Добавлено через 2...

Дано натуральное число. Определить, является ли оно простым
Дано натуральное число.Определить является ли оно простым. Натуральное число N называется простым если оно делится нацело без остатка...

4
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
07.04.2015, 20:19
Определить, является ли натуральное число N степенью числа 5 или нет
1
0 / 0 / 0
Регистрация: 04.04.2015
Сообщений: 39
07.04.2015, 20:38  [ТС]
Нужно решить с помощю переменной х под корнем ;( должно присутствовать что то вроде sqrt(х)mod5= 0
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
07.04.2015, 21:38
Pascal
1
2
3
4
5
6
7
8
Var
  i : Longint;
Begin
  For i:=1 to 25 do
  Begin
    Writeln(i,'  ',(Frac(ln(i)/ln(5))-0.00001)<0);
  end;
end.
1
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38171 / 21106 / 4307
Регистрация: 12.02.2012
Сообщений: 34,697
Записей в блоге: 14
08.04.2015, 15:09
Лучший ответ Сообщение было отмечено ipod96 как решение

Решение

или так (без логарифмов):

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program task5;
 
Var q : integer;
 
Function isPower5(n : integer) : boolean;
Begin
      if (n=1) then Begin
         Result:=True;
         Exit;
      End
      Else
         if (n mod 5)=0 then
            Result:=isPower5(n div 5)
         else
            Result:=False;
End;
 
Begin
   readln(q);
   writeln(isPower5(q));
End.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.04.2015, 15:09
Помогаю со студенческими работами здесь

Определить, является ли натуральное число N степенью числа 5 или нет
Решить задачу, используя циклические конструкции

Определить, является ли натуральное число N степенью числа 5 или нет
Определить, является ли натуральное число N степенью числа 5 или нет. Помогите решить, пожалуйста

Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE
Дано целое число N&gt;0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE

Дано натуральное число. Определить, является ли оно палиндромом
Дано натуральное число. Определить, является ли оно палиндромом. Число-палиндром можно читать справа налево и слева направо. Например,...

Дано натуральное число N (N не раво 1).Определить,является ли оно простым.
Дано натуральное число N (N не раво 1).Определить,является ли оно простым. Срочно нужно сдать до 25 декабря!Помогите кто...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Философия технологии
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(), которая. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru