1 2 3 4 5 6 7 8 9 10 11 12 | DEFINT A-ZCLSINPUT "skolko: ", APRINT STR$(A);IF A \ 10 <> 1 THEN B = A MOD 10 IF B = 1 THEN PRINT " vorona" IF B > 1 AND B < 5 THEN PRINT " voroni" IF B > 4 AND B < 10 OR B = 0 THEN PRINT " voron"ELSE PRINT " voron"END IF |
Тестирование выполнено в программе QB64 ( Скачать )