ХЭЛП Бизнесмен купил прямоугольный участок земли со сторонами а и b под дом. На нем он построил дом в виде прямоугольника со сторонами c и d. К дому пристроил летний сад треугольной формы с основанием k. На участке разбил две клумбы радиусами r1 и r2. Рассчитать площадь земли, оставшуюся под газон.

Объяснение:

S(оставшейся територии) =

1- Известно, что с бит можно закодировать 2N различных чисел. Т. к. поля независимы, то для каждого нужно своё минимальное число бит.

Для поля с номером года 211 < 2100 < 212, значит, минимальное количество бит для этого поля 12.

Номер месяца: 23 < 12 < 24, значит, для этого поля — 4 бита.

Номер дня: 24 < 30 < 25, значит, этому полю соответствуют 5 бит.

Итого для одной записи нужно: 12 + 4 + 5 = 21 бит

2-Согласно условию, в номере могут быть использованы 10 цифр (0..9) и 26 букв, всего 10 + 26 = 36 символов. Известно, что с бит можно закодировать 2N различных символов. Поскольку 25 < 36 < 26, то для записи каждого из 36 символов необходимо 6 бит.

Для хранения всех 7 символов номера нужно 7 * 6 = 42 бит, а т. к. для записи используется целое число байт, то берём ближайшее не меньшее значение, кратное восьми, это число 48 = 6 * 8 бит (6 байт).

Тогда 40 номеров занимают 6 * 40 = 240 байт.

3 текст скинь

{Задача #5}

begin

 var N:string;

 write('Введите дату вашего рождения (день.месяц.год): '); readln(N);

 var D:='26/11/2020';

 {Если хотите проверить настоящую дату, замените на

 var D:=system.DateTime.Now.ToShortDateString;}

 

 if (D.Split('/').Last.ToInteger-N.Split('.').Last.ToInteger) < 18 then

   writeln('Ваш возраст меньше 18-ти лет, регистрация запрещена')  else

   writeln('Вам разрешено продолжить регистрацию');

end.

{Задача #6}

begin

 var x,y:real;

 write('Введите значение x: '); read(x);

 if x < 4 then y:= x+3 else

 if x > 5 then y:= 2*x+4 else

 y:= 1;

 write('y(',x,') = ',y);

end.

{Задача #7}

begin

 var x,k,y:real;

 write('Введите значения x,k: '); read(x,k);

 y:=((x < 1/2) and (k >= 1))? k+x:2*k-x;

 write('y(',x,') = ',y);

end.