Такие записи есть: 7, 8
Запись на <14:00 – 1, 2, 3, 4, 5, 6
Запись на > «Пятница» – 6, 7, 8
Ответ: 1) 7, 8
________________
БУДУ БЛАГОДАРЕН ЗА ВЫБОР 'КАК ЛУЧШИЙ'
Var i,b,c:integer;
a:array[1..100] of integer;
Begin
Read(b);
I:=1;
While b<>0 do
Begin
A[i]:=b;
I:=i+1;
Read(b);
End;
C:=i-1;
D:=0;
B:=0;
For i:=1 to c do
If a[i]>99
Then begin b:=b+a[i]; d:=d+1; end;
If b=0
Then writeln('NO')
Else writeln(b/d);
End.
Заполненные таблицы - в прилагаемых файлах.
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
T = 8 минут = 480 секунд
V = 192 000 бит/c
найти : I ?
Решение
I = V *t = 192 000 * 480 = 9216000 бит = 11250 Кбайт
Ответ : 11250 кбайт