Вывести наибольшее целое K, при котором выполняется неравенство 3K

Категория: Basic

2012-02-09 16:22:50

Дано целое число N(>1).

code: #basic

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

автор: кот Бегемот

Поделиться:

Sample Code