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
<span>Процесс оформления страницы, абзаца, строки, символа, путём изменения размера символов или их начертания.
</span>
Пример - носитель - форма представления
Табличка с номером дома - металлическая платина - числовая и может быть текстовая
Билет на самолет - бумага - текстовая и числовая и графическая
Газета - бумага - текстовая и числовая и графическая
Кинофильм - кинопленка - видеоинформация
<em>VAR</em>
<em> n, sum, i : LongInt;</em>
<em>BEGIN</em>
<em> Read(n);</em>
<em />
<em> For i := 1 to n do</em>
<em> sum := sum + Sqr(i);</em>
<em />
<em> Write(sum);</em>
<em>END.</em>