Количество информации в сообщении, содержащем 4096 символов, составил 1/1024 часть мбайта. каков размер алфавита, с которого было записано сообщение?

1/1024 мбайта = 1  байт  алфавит из 255 символов

С компьютеров можно писать книги, письма и отчеты, хранить обширную информацию (наподобие списков, адресов и баз данных), делать сложные расчеты, конструировать технику, рисовать, редактировать фотографии и еще много чего другого… В настоящее время практические все организации в мире используют компьютер. Ведь без компьютера сейчас даже ракета в воздух не взлетит. Все, что нас окружает, автоматизировано до такой степени, что люди, живущие всего 30 лет назад, восприняли бы это как фантастику.
Почти любую работу, проделанную на компьютере, можно увидеть на экране монитора. А при желании, результаты работы можно распечатать на бумаге с принтера. Но можно и наоборот, любой документ или рисунок ввести в компьютер с сканера (лист бумаги сканируется на специальном экране сканера, после чего этот документ появляется в компьютере). Кроме этого, любую информацию с компьютера можно вывести не только в печатном, но и в электронном виде. Для этого используются компьютерные диски и флешки. С них можно переносить информацию с одного компьютера на другой или просматривать данные на экране телевизора (например, фильмы, фотографии, музыка и т.д.).
Попыталась компактно всё вместить

Объяснение:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

Program lab5;

Var

A: array [1..10,1..15] of real;

i, j, m, n: integer; s, p, min, max: real;

Begin

writeln('Введи m,n'); read(m,n);

writeln('Введи массив A');

for i:=1 to m do

 for j:=1 to n do

  read(A[i,j]);

s:=0; p:=1; min:=A[1,1]; max:=A[1,1];

for i:=1 to m do for j:=1 to n do

  begin

   s:=s+A[i,j]; p:=p*A[i,j];

   if A[i,j]<min then min:=A[i,j];

   if A[i,j]>max then max:=A[i,j];

  end;

writeln('s=',s:10:3,'  p=',p:10:3,

 '  min=',min:10:3,'  max=',max:10:3);

End.