С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
PINKNIK
0 / 0 / 0
Регистрация: 18.12.2009
Сообщений: 4
1

Описать логическую функцию, которая проверяет, является ли заданное целое число "k" степенью некоторого числа p.

18.12.2009, 16:46. Просмотров 1079. Ответов 1
Метки нет (Все метки)

Описать логическую функцию, которая проверяет, является ли заданное целое число "k" степенью некоторого числа "p". Используя эту функцию, найти количество степеней числа "p" в последовательности из n целых положительных чисел.
Вот... я решил эту задачу, но только используя power и round, а с целыми числами ни как не пойму.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2009, 16:46
Ответы с готовыми решениями:

Описать функцию, определяющую, является ли число К степенью числа 5
Помогите пожалуйста! Описать функцию, определяющую, является ли число К степенью числа 5. с ее...

Описать ФУНКЦИЮ R(a). Которая определяет является ли заданное пятизначное число перевертышем
Описать ФУНКЦИЮ R(a). Которая определяет является ли заданное пятизначное число перевертышем.

Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым
Всем привет. Не могу решить эти задания. Можете помочь?Я то я пропустил темы,теперь плохо понимаю....

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

Описать функцию, которая определяет, является ли данное число простым
2. Описать функцию, которая определяет, является ли данное число простым. Помогите...

1
Puporev
Модератор
55507 / 42595 / 29444
Регистрация: 18.05.2008
Сообщений: 100,754
18.12.2009, 17:11 2
Лучший ответ Сообщение было отмечено PINKNIK как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
function Step(k,p:integer):boolean;
var a:integer;
begin
a:=p;
while a<k do
a:=a*p;
if a=k then Step:=true
else Step:=false;
end;
var k,p:integer;
begin
clrscr;
write('Vvedite chislo K, stepen chisla k=');
readln(k);
write('Vvedite chislo P, osnovanie stepeni p=');
readln(p);
if Step(k,p) then write('Yes!')
else write('No!');
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2009, 17:11

Нужно написать прогу которая б переводила любое число записаное так "1"...."14"..."147" в етоже число но записаное прописью......
помогите написать прогу которая б переводила любое число записаное так &quot;1&quot;....&quot;14&quot;...&quot;147&quot; в етоже...

Описать функцию Count для подсчета числа строк в текстовом файле, которые начинаются с буквы "d"
ПУСТЬ ТЕКСТОВЫЙ ФАЙЛ t разбит на непустые строки . описать функцию count(y) для подсчета числа...

Дано целое число в диапазоне 100-900. Вывести в строку описание данного числа, например: 256 - "двести пятьдесят шесть"
Дано целое число в диапазоне 100-900. Вывести в строку описание данного числа, например: 256 -...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru