Dim Massiv(9) as integer Dim x as integer Dim msg as string For x=0 to 9 Massiv(x)=InputBox("Введите число №" & x+1) If Massiv(x) mod 3 =0 then msg=msg & "Число " & Massiv(x) & " кратно 3." & vbCrLf Next MsgBox (msg)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
