Дано целое число n (> 1). вывести наименьшее целое k, при котором выполняется неравенство 3k < n, и само значение 3k
Iulia1988
3
19.05.2019 00:10
3
Другие вопросы по теме Информатика
Kristina2003star1
28.06.2019 10:20
TheJurasikBint
28.06.2019 10:20
Vovanchik5978
26.04.2019 08:55
Anastasia5555633
24.06.2019 10:50
Даша0124
21.04.2020 11:18
Luchik22
21.04.2020 11:18
olgai71p08imh
21.04.2020 11:18
Артем1526
21.04.2020 11:19
3asyavasilkova3
21.04.2020 11:18
Популярные вопросы
- Определить число, род, падеж у существительного +прилагательного поздняя осень,...
3 - Властивості які є у прямокутнику але немає у ромбі...
2 - какую демографическую политику порекомендовали бы вы средне-развитой стране, с...
2 - On which education system are New Zealand programmes founded?...
1 - Задание 5. Соотнесите термин и отрасль(подотрасль) права, в которой он применяется....
2 - балымдарды ua рнына к, мәдени байлық туралы мақал-мә- телдер, фразеологизмдер,...
2 - Відомо, що с d. Які з нерівностей правильні: 1) 0,2 0,2d, 2) 0,3 Відомо, що с d....
3 - Перерізом шестикутної піраміди не може бути...
2 - 8.Доведіть, що чотирикутник ABCD з вершинами у точках А ( 24 ), В ( 42 ), С 10:2),...
1 - Наруы биосинтезін жузеге асыратан, прокариоттарда да, эукариоттарда да болатын...
2
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.
Var k:integer;
Begin
Readln(k);
Writeln('1');
End.