Паскаль. написать функцию, находящую максимальное из двух вещественных чисел и с её определить максимальное из 4-х вводимых с клавиатуры вещественных чисел.

Готово function max(a1, a2: integer): integer; begin if a1> a2 then max: =a1 else max: =a2; end; var a, b, c, d: integer; begin readln(a, b, c, d); write(max(max(a, b), max(c, ; end.если есть какие-то вопросы или ещё нужна , в лс.

5712000 бит = 714000 байт = 697 кбайт

Объяснение:

Задача легкая. Для начала, узнаем сколько у нас  всего символов, а для этого умножим количество страниц на количество строк и количество символов так мы найдем количество символов. Обозначается количество символов, как K:

символов

Объем информации находится по формуле:

, где i это вес одного символа(В нашем случае 8 бит)

Тогда объём равен:

бит

Вспоминаем или узнаем, что 8 бит это 1 байт то есть в байтах у нас будет:

714000 байт

1024 байт = 1 кбайт, получается

714000 байт = 697,27 кбайт ≈ 697 кбайт( как удобно)

N = int(input())

X = [''] * N

for a in range(N):

   X[a] = int(input())

a = 0

c, b, e, f = 0, 0, 0, N + 1

g, h = 0, 0

while a < N - 2:

   a += 1

   e += 1

   b, c = X[a], b

   if c < b:

       while a < N - 1:

           a += 1

           e += 1

           d = X[a]

           if d < b:

               if e < f:

                   g, h = a - e + 1, a + 1

                   f = e

               break

           elif d == b:

               continue

           else:

               break

   e = 0

if g == 0 and h == 0:

   print(0)

else: print(g, h)

Объяснение:

55 балов