3 задание пишите по буквам а) 7 и так далее​

а) 7б)10в)8г)16д)?е)? ж) 16

Объяснение:

з) 10н)25о)56

// pascalabc.net 3.0, сборка 1064 var   s: string;   n: integer; begin   write('введите строку: '); readln(s);   // a   n: =length(s);   writeln('количество символов в строке равно ',n);   // b   writeln(s[1],', ',s[2],', ',s[n]);   // c   writeln(ord(s[1]),', ',ord(s[n]));   // d   if s[1]=s[n] then writeln('первый и последний символы ')   else writeln('первый и последний символы не ');   // e   if n mod 2 = 0 then writeln('количество символов в строке четно')   else writeln('количество символов в строке нечетно');   // f   if pos('мама',s)> 0 then writeln('строка содержит слово "мама"')   else writeln('строка не содержит слово "мама"') end. тестовое решение: введите строку: тестовая строка со словом < мама> внутри количество символов в строке равно 39 т, е, и 210, 232 первый и последний символы не количество символов в строке нечетно строка содержит слово "мама"