Задание:
Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K
Решение:
Program z1; Var k: integer; BeginReadln (k); Writeln ('1'); End.
Знаете другой ответ?
Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K
Program z1; Var k: integer; BeginReadln (k); Writeln ('1'); End.
Знаете другой ответ?