содержит 1500 страниц. На каждой странице – 40 строк, в каждой строке – 60 символов.Определи количество информации в книге, набранной на компьютере. Книга
Program Zadacha; Const n = 10; Var a: Array [1..n] of Integer; B, c, i, j: Integer; d, e: Boolean; Begin WriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter'); For i := 1 To n Do Read(a[i]); Write('B = '); ReadLn(B); c := 0; For i := 1 To n Do If a[i] < 0 Then c := c + 1; WriteLn('Количество отрицательных элементов массива равно ', c); d := False; For i := 1 To n Do Begin c := a[i]; For j := i + 1 To n Do If c = a[j] Then d := True; End; If d = True Then WriteLn('В массиве есть одинаковые элементы') Else WriteLn('В массиве нет одинаковых элементов'); e := False; For i := 1 To n Do If a[i] = B Then e := True; If e = True Then WriteLn('В массиве есть элемент, равный ', B) Else WriteLn('В массиве нет элемента, равного ', B); ReadLn; End.
Искренне надеюсь, что Вы сможете перевести этот код к нужному виду..:) В принципе, расхождения должны быть только в вводе/выводе (где Console.Бла-бла-бла) и генерации случайных чисел)
Sub Main() Dim a(29), Sum, Col As Integer Dim Rnd = New Random() For i As Integer = 0 To 29 a(i) = Rnd.Next(-100, 100) Console.Write("{0} => {1}" + Environment.NewLine, i, a(i)) If (i > 0) Then If (a(i) Mod a(0)) Then Sum = Sum + a(i) Col = Col + 1 End If End If Next Console.WriteLine(Math.Round(Sum / Col, 2)) Console.ReadKey() End Sub
Т. к. не сказано, сколько весит 1 символ, будем брать за 1 байт:
1500 * 60 * 40 = 3600000 символов – всего в книге.3600000 * 1 = 3600000 байт ≈ 3515 Кб ≈ 3,4 Мб.ответ: 3,4 Мб информации в книге.