Составить программу, которая находит периметр прямоугольника со сторонами a и b, введенные с клавиатуры

Program SandP; //Название программы var //Описание переменных x,y: real; // Стороны прямоугольника S: real; // Площадь прямоугольника P: real; // Периметр прямоугольника procedure RectSP(a,b: real; var S,P:real); //Процедура begin S := a * b; //Нахождение площади P := a + b; //Нахождение суммы end; begin //Начало основной части программы writeln('Введите стороны прямоугольника: '); //Диалог с пользователем readln(x,y); //Считывание сторон RectSP(x,y,S,P); //Вызов процедуры writeln('Площадь равна ',S); //Вывод площади writeln('Периметр равен ',P); //Вывод периметра end. //Конец программы

Объяснение:

1. БЕЗ ПРИЗНАКОВ ЖИЗНИ (нет изображения, звуковых сигналов, не включаются светодиоды на системной плате и вентилятор ЦП)

2. ПК РАБОТАЕТ, НЕТ ИЗОБРАЖЕНИЯ (вентилятор ЦП работает, светодиоды материнской платы горят, но видеосигнала на мониторе нет)

3. BIOS ПРЕКРАЩАЕТ РАБОТУ (компьютер работает, но BIOS внезапно прекращает свою работу с ошибкой)

4. НЕ УДАЕТСЯ ЗАГРУЗИТЬ WINDOWS (появляется логотип ОС, но пользовательский интерфейс не загружается)

5. ПК РАБОТАЕТ СО СБОЯМИ (компьютер загружается, но «зависает» через некоторое время или под нагрузкой)

6. НЕ РАБОТАЮТ КОМПОНЕНТЫ ПК (проблемы с изображением или звуком, а также с портом USB и модулем Wi-Fi или приводом CD, DVD)

16 символов

Объяснение:

I = К * i, где

I - информационный объём сообщения (документа)

К - количество символов в сообщении (документе)

i - информационный вес символа (количество бит, которым кодируется 1 символ)

N = 2^i, где

N - мощность алфавита (количество символов в алфавите)

i - информационный вес символа (количество бит или байт, которым кодируется 1 символ)

Дано:

K = 10 страниц * 305 символов = 3050 символов

I = 1 525 байт = 12 200 бит

Найти:

N

I = К * i

i = I / K

i = 12 200 / 3050 = 4 бит

N = 2^4 = 16 символов

1 байт = 8 бит