INPUT "vvedite chislo ", n
k = n \ 3
IF n MOD 3 = 0 THEN k = k - 1
PRINT "k="; k
PRINT "3k="; k * 3
Тестирование выполнено в программе QB64 ( Скачать )
INPUT "vvedite chislo ", n
k = n \ 3
IF n MOD 3 = 0 THEN k = k - 1
PRINT "k="; k
PRINT "3k="; k * 3
Тестирование выполнено в программе QB64 ( Скачать )