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

INPUT "vvedite chislo ", n
k = n \ 3
IF n MOD 3 = 0 THEN k = k - 1
PRINT "k="; k
PRINT "3k="; k * 3

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment