Вывести наибольшее целое K, при котором выполняется неравенство 3K — Basic(Бейсик)

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

Leave a Comment