|
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
|