<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-9,9); a.Println;
Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.
<u>Пример</u>
2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (b, c) := ReadReal2;
if c <> 0 then Write('a=', b / c)
else Print('с=0')
end.
290 * 39 * 67 = 757770 символов
Для кодирования одного символа требуется 1 байт, значит для кодирования 757770 символов потребуется 757770 байт.
757770 байт = 740 кбайт = 0,72 мбайт
Значит, книгу можно разместить на дискете
Для получения объёма необходимо все перемножить:
1920 * 1080 * 32 = 66355200 бит
Переводим в килобайты: 66355200 : 1024 : 8 = 8100 КБайт
Ответ: 3
РАК = 1101010
Пытаемся расшифровать 1101010. Начинается с 11..., на 11 начинается только код Р. Оканчивается на ...0, что совпадает только с кодом буквы К. Остается 01, что расшифровывается однозначно как А.
<u>Декодируется однозначно</u>.
ЛАК = 01101010 = АТК
ТАРА = 101011101 = ТЛТ
Ответ. РАК