Дано натуральное число N. Выяснить, является ли оно степенью пятерки

@Oxanin · Регистрация: 21.03.2013

Author24 — интернет-сервис помощи студентам

Дано натуральное число N. Выяснить, является ли оно степенью пятерки.

@ПерС · 19.11.2013, 14:31

Pascal
1
2
3
4
5
6
7
8
is := true;
while n>1 do begin
 if n mod 5 <> 0 then begin
  is := false; break;
 end;
 n:=n div 5;
end;
{is=true - да, false-нет}

n должно быть больше 1

@ildwine · 19.11.2013, 14:49

Обратите внимание, что для Turbo Pascal использование is в качестве идентификатора допустимо, но в Pascal ABC или PascalABC.NET is является зарезервированным словом.

@Oxanin · 19.11.2013, 15:36 **[ТС]**

мм если бы я еще до конца поняла, что там написано.
а если остаток не 0, тогда программа заканчивает. А нельзя это сделать без употребления true/false?

@Alexxandr · 19.11.2013, 15:38

Сообщение от Oxanin

мм если бы я еще до конца поняла, что там написано.
а если остаток не 0, тогда программа заканчивает. А нельзя это сделать без употребления true/false?

Можно, но смысл?
var is: integer;
true заменить на 1
false на 0

@APALoff · 19.11.2013, 15:47

Pascal
1
2
3
4
k:=n;
While (k mod 5 = 0) and (k>1) do k:=k div 5;
If k=1 then Writeln('Число ',n,' является степенью пятерки') 
  else Writeln('Число ',n,' не является степенью пятерки');

@Oxanin · 19.11.2013, 16:07 **[ТС]**

Спасибо всем огромное

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .	Микросервис на Python с FastAPI и Docker ArchitectMsa 23.04.2025 В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel Reangularity 23.04.2025 Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .	Максимальная производительность C#: Span<T> и Memory<T> stackOverflow 22.04.2025 Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .	JWT аутентификация в Java Javaican 21.04.2025 JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .	Спринты Agile: Планирование, выполнение, ревью и ретроспектива EggHead 21.04.2025 Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .	Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .

@Oxanin 0 / 0 / 0 Регистрация: 21.03.2013 Сообщений: 19

	Дано натуральное число N. Выяснить, является ли оно степенью пятерки 19.11.2013, 13:57. Показов 2129. Ответов 6 Метки нет (Все метки) Дано натуральное число N. Выяснить, является ли оно степенью пятерки. 0

@ildwine Почетный модератор 6199 / 2950 / 1300 Регистрация: 04.03.2013 Сообщений: 5,794 Записей в блоге: 1
	19.11.2013, 14:49
	Обратите внимание, что для Turbo Pascal использование is в качестве идентификатора допустимо, но в Pascal ABC или PascalABC.NET is является зарезервированным словом. 0

@Oxanin 0 / 0 / 0 Регистрация: 21.03.2013 Сообщений: 19
	19.11.2013, 15:36 [ТС]
	мм если бы я еще до конца поняла, что там написано. а если остаток не 0, тогда программа заканчивает. А нельзя это сделать без употребления true/false? 0

@Oxanin 0 / 0 / 0 Регистрация: 21.03.2013 Сообщений: 19
	19.11.2013, 16:07 [ТС]
	Спасибо всем огромное 0

Опции темы