<span>файл, содержащий программу в виде, в котором она может быть (после загрузки в память и настройки по месту) исполнена компьютером.</span>
Решение Вашей задачи находится в прикреплённом файле. Если у Вас возникнут вопросы по коду, напишите мне и я Вам с удовольствием помогу.
Var x1,x2,y,p:integer;
begin
write('Введите четырехзначное число: ');
readln(y);
x1:=y div 1000;
x2:=y mod 10;
p:=x1*x2;
writeln('Произведение крайних цифр: ',p)
<span>end.</span>
//PascalABC.NET 3.2 сборка 1318
function MaxFrom3(a,b,c:integer):integer;
Var
max:integer;
begin
max:=a;
if max<b then max:=b;
if max<c then max:=c;
MaxFrom3:=max;
end;
function MinFrom3(a,b,c:integer):integer;
Var
min:integer;
begin
min:=a;
if min>b then min:=b;
if min>c then min:=c;
MinFrom3:=min;
end;
1) Фраза "Лень делает всякое дело трудным" содержит 31 символ; <span>объем высказывания = 31*8 = 248 бит
2) </span>Строка "И трижды тот вооружен, кто прав!" содержит 32 символа; объем строки = 32*16 бит = 32*16 / 8 байт = 64 байта
3) 0,5 Кбайт = 0,5*1024 байт = 0,5*1024*8 бит
Количество символов в сообщении = 0,5*1024*8 / 8 = 512
4) Объем текста = <span>60*25*5*8 бит = 60*25*5*8 / 8 байт = 7500 байт
5) Объем рассказа = </span><span>4*48*64*8 бит = 4*48*64*8 / (8*1024) Кбайт = 12 Кбайт
6) Объем статьи = </span><span>12*64*64*16 бит = 12*64*64*16 / (8*1024) Кбайт = 96 Кбайт
7) Объем сообщения = 30*1 байт = 30*8 бит = 240 бит
8) Объем реферата = (12*</span>48*64 + 12*24*32)*2 байт = (12*48*64 + 12*24*32)*2 / 1024 Кбайт = 90 Кбайт
9) 24 Кбайт = 24*1024*8 бит. Для кодирования каждого символа используется 24*1024*8 / (8*40*64) = 9,6 ≈ 9 бит (а может быть и 8 бит).
10) 30 Кбайт = 30*1024*8 бит. Количество страниц = 30*1024*8 / (20*48*16) = 16
