<span>1) (А или В или С) и (А или не В или С) = А или С</span>
ПОПРОБУЙТЕ НАПИСАТЬ РЯДОМ 5 7 9
При использовании 256-цветной палитры для хранения одной точки требуется log(2)256 = 8 бит = 1 байт.
Объем рисунка = 300*350*1 байт = 105000 байт
1-ое - отражение. 2-ое - графика.
Sub average(ByVal N) S = "" sum = 0 N = Round(N) For i = 1 To N A = InputBox("Введите число № " + Str(i)) A = Round(A * 100) / 100 S = S + Str(A) If i <> N Then S = S + ", " End If sum = sum + A Next i MsgBox "Введённые числа " + S MsgBox "среднее значение " + Str(sum / N)End Sub
Sub test()M1: N = InputBox("Введите N; 0 - Закончить ") If (N = 0) Or (N = "") Then End End If Call average(N)GoTo M1:End Sub