1)дана строка символов среди которых есть двоеточие (: )определите сколько символов ему предшествует. 2)дана строка слов в. сформулируйте величину а, состоящию из первых букв слов входящих в строку в. 3)дана строка состояща я из нескольких слов .найдите наибольшую длину слова. 4()в записке слова зашифрованы каждое из них записано на оборот ,расшифруйте сообщение .

Pascalabc.net 3.2: 1. begin     write(readstring.indexof(': ')) end. пример ввода: 1234: 56 пример вывода: 4 2. begin     write(readstring.towords.select(x-> x[1]).joinintostring) end. пример ввода: как любила язвить королева, собаки апплодировали пример вывода: клякса 3. begin     write(readstring.towords.select(s-> length() end. пример ввода: не хочу учиться хочу жениться пример вывода: 8 4. если там нет знаков препинания: begin     write(readstring.towords.select(s-> reversestring((' ')) end. если там есть знаки препинания, которые надо оставить на месте, то настолько же короткого решения мне не придумалось, можно так:   begin   var str : = readstring + ' ';   var m : = '';   for var i : = 1 to str.length do     if str[i].isletter then       m += str[i]     else     begin       write(reversestring(m), str[i]);       m : = '';     end; end. пример ввода:   амар алым умам пример вывода:   рама мыла маму

program njn;

uses crt;

var a: array [1..100] of integer;

        i,p: integer;

        s: real;

begin

clrscr;

readln(a[1],q,n);

s: =0;

p: =a[1];

for i: =2 to n do begin

  a[i]: =p*q;

p: =a[i];

end;

for i: =1 to n do

writeln(a[i]);

for i: =1 to n do

s: =s+a[i];

writeln('среднее=',s/n);

readln;

end.