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

1
2
3
4
5
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