6. учащийся готовит проект по искусству и сохраняет документ «© алматы-2018». емунеобходимо снять видео в краеведческом музее. а) опишите назначение данного знака «© алматы-2018» ! ​

Var s: string; k,i: integer; begin k: =0; writeln('введите строку'); readln(s); for i: = 1 to length(s) do       if s[i] = '.' then k: =k+1; writeln('количество точек в строке: ',k) end. var s,s1: string; i: integer; begin writeln('введите строку'); readln(s); s1: =''; for i: = 1 to length(s)-1 do       begin       if s[i] < > ' ' then s1: =s1+s[i];       if (s[i] = ' ')and(s[i+1] < > ' ') then s1: =s1+s[i];       end; s: =''; if s1[1] = ' ' then     for i: = 2 to length(s1) do             s: =s+s1[i] else     for i: = 1 to length(s1) do             s: =s+s1[i]; writeln(s); end.

// pascalabc.net 3.2, сборка 1404 от 16.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,-99,99); a.println;   writeln('сумма элементов с четным значением ',           a.where(x-> x.iseven).sum);   writeln('произведение элементов с нечетным значением ',           a.where(x-> x.isodd).aggregate(int64(,y)-> x*y)) end. пример 45 -95 41 -26 -99 -96 77 -4 18 41 сумма элементов с четным значением -108 произведение элементов с нечетным значением 54780974325