<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)
.Take(15).ToArray;
a.Println;
a.Where(t -> t < 0).Count.Println;
a.Transform(t -> t < 0 ? 0 : t);
a.Println
end.
<h2>Пример</h2><h3>-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -6</h3><h3>8 </h3><h3>0 10 2 4 0 0 2 2 10 0 0 0 0 2 0</h3>
Нужно умножить стороны треугольника
Program raf105;
var
s: string;
c,i: integer;
begin
write('Введите фразу: ');
readln(s);
for i:=1 to length(s) do
if s[i] = 'o'
then c:= c+1;
writeln('Количество символов "o" в ведённой фразе: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Петя отправил письмо своей бабушке и положил его в почтовый ящик. Письмо забрал почтальон и отнёс его на почту. Здесь все письма складывают в большой мешок и почтовая машина отвозит их на вокзал. В почтовом вагоне письма везут в город, где живёт бабушка.
Другая почтовая машина везёт мешок на почту. А другой почтальон относит Петино письмо и отдаёт его бабушке.
Количество символов в тексте k=I/i, где I- объем текста, i- количество бит на 1 символ.
i=㏒₂N, где N- количество символов в алфавите.
i=㏒₂64 = 6 бит
k=8190/6= 1365 символов