Записать задачу проще - VB
Формулировка задачи:
Я решила задачу, но запись слишком длинная, можно её как-то упростить?
Решение задачи: «Записать задачу проще»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim n As Integer m: n = Val(InputBox("Введите натуральное число меньше 100", , 89)) If n < 1 Or n > 99 Then GoTo m Select Case True Case (n > 4 And n < 21) Print n; "коров" Case (n Mod 10 > 1) And (n Mod 10 < 5) Print n; "коровы" Case n Mod 10 = 1 Print n; "корова" Case Else Print n; "коров" End Select End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д