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

Question

Информатика

Полюся

23 мая, 03:51

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

+4

Ответы (2)

Знаете ответ на вопрос?

Леония · Answer 1

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.

Игорька · Answer 2

Program z1;

Var k:integer;

Begin

Readln (k) ;

Writeln ('1') ;

End.