Var lc:real;
Begin
write('Кол-во лошадиных сил = ');
readln(lc);
write(lc * 0.735);
End.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x1,y1):=ReadReal2('Координаты 1-й точки:');
var (x2,y2):=ReadReal2('Координаты 2-й точки:');
var a:=Abs(x2-x1); // считаем, что координаты указаны верно
var d:=a*Sqrt(2);
var (xc,yc):=((x2+x1)/2,(y2+y1)/2);
Writeln('Длина стороны ',a,', диагональ ',d);
Writeln('Координаты центра пересечения диагоналей: ',xc,' ',yc)
end.
<u>Пример</u>
Координаты 1-й точки: -3 3.5
Координаты 2-й точки: 4 -3.5
Длина стороны 7, диагональ 9.89949493661167
Координаты центра пересечения диагоналей: 0.5 0
Файлы:
1. primera.dat
2. primera.doc
3. merchant.doc
4. k-mer.doc
5. omerta.doc
6. Temerlan.docx
1) *mer?.doc - отбирает файлы с расширением .doc и именем (я буду называть именем всё без расширения), оканчивающимся на mer и еще какую-то букву.
Будет отобрано только файл 2.
2) ?*mer?.doc - тут по сравнению с предыдущим добавляется условие, что перед mer должно быть что-то еще. Если в прошлом случае был 1 файл, то и в этом не больше одного.
3) *mer*?.doc - файлы с именем, содержащим mer, но не оканчивающимся на него и расширением .doc. Отберутся файлы 2, 3, 5 - три файла.
4) *?mer*?.doc - тут mer должно еще и не быть в начале, по сравнению с предыдущим. Будут отобраны файлы 2 и 5.
Ответ. 3.
K = 60*50*40
N = 65536
N = 2^j
j = 16
I ( объем инф-ии) = 16*60*50*40 = 1920000 бит = 240000 байт =234,3 Кбайт
ответ: 234,3 Кбайт