Вывести на экран наибольшее число вида 3k

@Yuramius · Регистрация: 20.04.2017

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

Дано натуральное число N. Вывести на экран наибольшее число вида 3k, меньшее N. K - это степень, не могу разобраться

@Zwelenewskiy · 21.05.2017, 23:23

Pascal

begin
  
  var n: integer := ReadlnInteger('Введите N: ');
  var max: integer := 0;
  var k: integer := 0;
  for var i: integer := 1 to N do  
  begin
    k := i * i * i;
    if (k < N) and (k > max)
      then max := i;
  end;
  
  writeln(max);
end.

@Hitoku · 22.05.2017, 01:13

Как вариант:

Pascal

begin
  var n := ReadlnInteger('N =');
  write('Число: ', Range(1, n div 2).Select((v, i) -> power(3, i + 1) < n ? power(3, i + 1) : 0).Max);
end.

@JuriiMW · 22.05.2017, 05:16

Здесь циклы не нужны!
Без вариантов:

Pascal

1
2
3

begin
  WriteLn('k = ', Int(LogN(3,ReadLnInteger('N ='))));
end.

@Yuramius 0 / 0 / 0 Регистрация: 20.04.2017 Сообщений: 19
		1
	Вывести на экран наибольшее число вида 3k 21.05.2017, 23:11. Показов 1305. Ответов 3 Метки нет (Все метки) Дано натуральное число N. Вывести на экран наибольшее число вида 3k, меньшее N. K - это степень, не могу разобраться 0

	22.05.2017, 05:16

Вывести на экран наибольшее число вида 3k

Решение