Задать вопрос Регистрация
Помочь другим

  • Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K

Ответы 2

  • Program z1;Var k:integer;BeginReadln(k);Writeln('1');End.

    • Автор:

      leilani
    • 6 лет назад
    • 0

  • var  n, k: integer;begin;  read(n);  k := -10000;  while(k < 0) do    k := k - 1;  writeln('Min: k = ', (k + 1) div 3, ', 3*k = ', k + 1);    k := n div 3;  if 3 * k >= n then k := k - 1;  writeln('Max: k = ', k, ', 3*k = ', 3 * k);end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years