{Задача #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.
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 текст скинь