zadach80.BAS

{* Задача80 *}

REM basic

' С клавиатуры вводится положительное двузначное число N. Определить, кратно ли оно 12. Предусмотреть проверку вводимых значений.


10 CLS
30 INPUT "N ="; N
40 If N < 10 Or N > 99 Or N  FIX(N) Then GoTo 30
50 If N Mod 12 = 0 Then PRINT N; "кратно 12"
60 If N Mod 12  0 Then PRINT N; "не кратно 12"
70 End