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

@PINKNIK · Регистрация: 18.12.2009

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

Описать логическую функцию, которая проверяет, является ли заданное целое число "k" степенью некоторого числа "p". Используя эту функцию, найти количество степеней числа "p" в последовательности из n целых положительных чисел.
Вот... я решил эту задачу, но только используя power и round, а с целыми числами ни как не пойму.

@Puporev · 18.12.2009, 17:11

Pascal

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.

@PINKNIK 0 / 0 / 0 Регистрация: 18.12.2009 Сообщений: 4
		1
	Описать логическую функцию, которая проверяет, является ли заданное целое число "k" степенью некоторого числа p. 18.12.2009, 16:46. Показов 1576. Ответов 1 Метки нет (Все метки) Описать логическую функцию, которая проверяет, является ли заданное целое число "k" степенью некоторого числа "p". Используя эту функцию, найти количество степеней числа "p" в последовательности из n целых положительных чисел. Вот... я решил эту задачу, но только используя power и round, а с целыми числами ни как не пойму. 0

Опции темы

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

Решение