<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
16 бит - это 16/8 = 2 байта - именно столько занимает один символ.
Тогда страница займет 32×64×2 = 4096 байт = 4096/1024 = 4 Кбайта.
Если объем текста 48 Кбайт, то в нем 48/4 = <u>12</u> страниц.
Именно столько листов бумаги и понадобится при односторонней печати. При двухсторонней - 6 листов.
За 5 баллов в следующий раз никто программу не напишет вам
var mo,tu,we,th,fr,sa,su,a: ShortInt;
var b: Real;
Begin
Write('Температура воздуха в Понедельник: ');
Readln(mo);
Write('Температура воздуха во Вторник: ');
Readln(tu);
Write('Температура воздуха в Среду: ');
Read(we);
Write('Температура воздуха в Четверг: ');
Readln(th);
Write('Температура воздуха в Пятницу: ');
Readln(fr);
Write('Температура воздуха в Субботу: ');
Readln(sa);
Write('Температура воздуха в Воскресенье: ');
Readln(su);
a:=mo+tu+we+th+fr+sa+su;
b:=a/7;
Write('Средняя температура воздуха: ',b:0:2,' градусов.');
End.
74 в двоичной будет <span>1001010
91 в двоичной будет </span><span>1011011
Для того чтобы понять как это вышло, попробуйте любое из чисел делить постоянно на 2
Если требовалось вычесть 74-91, то вышло бы -17, что в двоичной системе выглядит как: </span><span>-10001</span>