//PascalABC.NET 3.4.2
1.
begin
write(arrrandom(10, -15, 15).Println.Where(x -> x > 0).Sum);
end.
2.
begin
readarrinteger(15).Select(x -> x mod 2 <> 0 ? 1 : x).Println;
end.
3.
begin
readarrreal(10).Where(x -> x > 0).Average.Println;
end.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(5,-13,8).Println.Where(t->(t<0) and t.IsOdd).ToArray;
if a.Count>0 then a.Aggregate(1,(i,j)->i*j).Println
else Writeln(0)
end.
<u>Пример</u>
-2 -6 -6 -7 -13
91
Способ:числовой-с помощью чисел.Графический-с помощью рисунков или значков.Символьный- с помощью символов того же алфавита или текста.ЦЕЛи:сокращение записи,засекречивание иформации,одобство обработки.виды:алфавитное кодирование(естественный язык),Банарное кодирование(барабан-глухой и звонкий звук),Нотное кодирование(нотные знаки),Пиктографическое кодирование(рисунки,условные знаки на картах,схемах),Машинное кодирование(ноль и единица 0,1)
Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.Distinct.Count.Println
end.
<h2>abca</h2><h2>3</h2>