Архив рубрики: VBA

Количество положительных чисел

Задача: дана последовательность А1,А2,А3,…А10. Вывести сообщение на экран, если больше или меньше 5 положительных чисел. Решение: Sub random1() num1 = InputBox(«Введите число 1:») num2 = InputBox(«Введите число 2:») num3 = InputBox(«Введите число 3:») num4 = InputBox(«Введите число 4:») num5 = InputBox(«Введите число 5:») num6 = InputBox(«Введите число 6:») num7 = InputBox(«Введите число 7:») num8 =… Читать далее »