<em>// PascalABC.NET 3.2, сборка 1431 от 28.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(12,-50,50); a.Println;
Writeln('Сумма нечетных элементов: ',a.Where(k->k.IsOdd).Sum)
end.
<u>Пример</u>
22 -27 4 3 -30 -25 29 -27 -44 26 21 -28
Сумма нечетных элементов: -26
begin
var w:array[1..4] of string;
var s:string:='';
for var i:=1 to 4 do begin Readln(w[i]); s:=s+w[i] end;
for var i:=1 to 3 do Writeln(s+' '+i*'!')
end.
<u>Пример</u>
Первое
Второе
Третье
Четвертое
ПервоеВтороеТретьеЧетвертое !
ПервоеВтороеТретьеЧетвертое !!
ПервоеВтороеТретьеЧетвертое !!!
/t означает вертикальную табуляцию
Всего 6 символовв алфавите, значит на 1 символ отводится 3 бита информации
В книге 4000+1000+2000+1500+500+1000=10 000 сиаволов
Значит в книге содержится 30 000 бит инофрмации
300x30x40 = 360000 байт данных