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

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