Дано целое число N ( больше 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K меньше N, и само значение 3K
Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K
Гость
Ответ(ы) на вопрос:
ГостьProgram z1;
Var k:integer;
Begin
Readln(k);
Writeln('1');
End.
Гость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.
Не нашли ответ?
Похожие вопросы