Ввести с клавиатуры целое число N и найти такое наибольшее целое число K, что будет справедливо неравенство

@Ilyachiz · Регистрация: 18.11.2013

Напишите следующую программу. Ввести с клавиатуры целое положительное число N и найти такое наибольшее целое число K, что будет справедливо неравенство:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?3^^{2K}<\frac{N^2}{2+N}$

Желательно написать программу используя операторы:repeat until

Спасибо.

@Fikafusik · 30.04.2014, 23:52

Лучше поздно, чем никогда. =) Это первая. Сейчас вторую сделаю.

Pascal

Var
  n: Word;
  k: Integer;
 
Begin
  Write('Введите число. n = ');
  Readln(n);
    Repeat
      Inc(k);
    Until Power(2, k) > Power(n, 3) / 3;
  Writeln('k = ', k);
End.

@Ilyachiz 0 / 0 / 0 Регистрация: 18.11.2013 Сообщений: 9
		1
	Ввести с клавиатуры целое число N и найти такое наибольшее целое число K, что будет справедливо неравенство 20.04.2014, 18:34. Показов 2128. Ответов 1 Метки нет (Все метки) Напишите следующую программу. Ввести с клавиатуры целое положительное число N и найти такое наибольшее целое число K, что будет справедливо неравенство: $https://www.cyberforum.ru/cgi-bin/latex.cgi?3^^{2K}<\frac{N^2}{2+N}$ Желательно написать программу используя операторы:repeat until Спасибо. 0

Опции темы

Ввести с клавиатуры целое число N и найти такое наибольшее целое число K, что будет справедливо неравенство

Решение