Составить программу, которая выведет максимальную степень одного числа в другом

@ALNV_2 · Регистрация: 08.04.2017

как составить программу, которая выведет максимальную степень одного числа в другом( например, степень числа 2 в числе 20-4) пожалуйста)))

@bormant · 08.04.2017, 15:45

Можно поделить и посчитать:

Pascal

var a, b, k: Integer;
begin
  Read(a,b);
  while b mod a=0 do begin
    b:=b div a; Inc(k);
  end;
  WriteLn(k);
end.

Добавлено через 3 минуты
Это если про разложение: 20 = 2 * 2 * 5 -- 2 двойки.

Если про 2^x<=20, то или посчитать, или логарифм:

Pascal

var a, b, k: Integer;
begin
  Read(a,b);
  while b>=a do begin
    b:=b div a; Inc(k);
  end;
  WriteLn(k);
end.

Добавлено через 1 минуту

Pascal

var a, b, k: Integer;
begin
  Read(a,b); WriteLn(Ln(b)/Ln(a):0:0);
end.

@ALNV_2 · 09.04.2017, 18:20 **[ТС]**

там еще должно быть: если что то меньше нуля то
если что то больше нуля то

Добавлено через 19 часов 7 минут
делением надо делать, пожалуйста))

@ZX Spectrum-128 · 10.04.2017, 07:22

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

делением надо делать

Деление в 5-й строке.

@ALNV_2 · 11.04.2017, 16:42 **[ТС]**

bormant,там еще должно быть: если что то меньше нуля то
если что то больше нуля то

@ALNV_2 · 14.04.2017, 18:56 **[ТС]**

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

Inc(k)

а что это обозначает?

@bormant · 14.04.2017, 19:06

это обозначает

Pascal

k:=k+1;

@ALNV_2 0 / 0 / 0 Регистрация: 08.04.2017 Сообщений: 4
		1
	Составить программу, которая выведет максимальную степень одного числа в другом 08.04.2017, 12:55. Показов 1162. Ответов 6 Метки нет (Все метки) как составить программу, которая выведет максимальную степень одного числа в другом( например, степень числа 2 в числе 20-4) пожалуйста))) 0

@ALNV_2 0 / 0 / 0 Регистрация: 08.04.2017 Сообщений: 4
	09.04.2017, 18:20 [ТС]	3
	там еще должно быть: если что то меньше нуля то если что то больше нуля то Добавлено через 19 часов 7 минут делением надо делать, пожалуйста)) 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	10.04.2017, 07:22	4
	Сообщение от ALNV_2 делением надо делать Деление в 5-й строке. 0

@ALNV_2 0 / 0 / 0 Регистрация: 08.04.2017 Сообщений: 4
	11.04.2017, 16:42 [ТС]	5
	bormant,там еще должно быть: если что то меньше нуля то если что то больше нуля то 0

@ALNV_2 0 / 0 / 0 Регистрация: 08.04.2017 Сообщений: 4
	14.04.2017, 18:56 [ТС]	6
	Сообщение от bormant Inc(k) а что это обозначает? 0

	14.04.2017, 19:06

Опции темы

Решение