Хотя бы что то через программу pascal: 1)запись заданного длинного целого числа имеет нечетное количество цифр. вывести на экран среднюю цифру. 2)написать функцию определяющую количество знаков препинания в предложении 3)написать функцию определяющую количество символов в заданном строковом значении, которые стоят перед символом. 4)написать процедуру, которая из-заданного предложения выделяет слова и записывает их в столбик друг под другом, причем возле каждого слова должно быть указано количество букв в нем. 5)составить словарь(из 5 слов), которых можно было бы пользоваться в "королевстве кривых зеркал".то есть слова из заданного словаря вывести на экран дисплея в столбик, записав рядом с каждым словом его перевод на "зеркальный" язык. 6)написать функцию определяющую количество символов латинского алфавита в предложении. 7)написать процедуру,которая заменяет пропуски между словами в строках символом "_". 8)составить программу которая выделяет отдельные слова в заданном предложении и выводит их в столбик на экран с указанием порядкового номера. 9)написать процедуру, которая переставляет все символы строки следующим образом: 1-й символ становится последним, 2-й - предпоследним, предпоследний -2-м. и т.д. 10)составить программу которая в предложении 1-ю букву каждого слова будет заменять на звездочку "*" 11) написать функцию которая определяет солько раз в данной строе встречаются буквы "а" и "о"

1)

program pr1; uses crt; var stroka: string; a: integer; beginclrscr; writeln('vvedite chislo'); readln(stroka); a: =length(stroka); a: =trunc(a/2)+1; writeln(a); end.

2)

program pr1; uses crt; var stroka: string; a,i: integer; beginclrscr; writeln('vvedite stroku'); readln(stroka); a: =0; for i: =1 to length(stroka) do if stroka[i]=',' then a: =a+1; writeln(a); end.

3)

program pr1; uses crt; var stroka: string; a,i: integer; c: char; beginclrscr; writeln('vvedite stroku'); readln(stroka); writeln('vvedite simvol'); readln(c); a: =0; for i: =1 to length(stroka) do if stroka[i]=c then break else a: =a+1; writeln(a); end.

4)

program pr1; uses crt; var stroka: string; procedure word9(strokk: string); var i: integer; tmp: string; begin for i: =1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin writeln(tmp,' ',length(tmp)); tmp: =''; end else tmp: =tmp+stroka[i]; end; beginclrscr; writeln('vvedite predlogenie'); readln(stroka); word9(stroka); end.

6)

program pr1; uses crt; var stroka: string; a,i: integer; beginclrscr; a: =0; readln(stroka); for i: =1 to length(stroka) do if stroka[i] in ['a'..'z'] then a: =a+1; writeln(a); end.

7)

program pr1; uses crt; var stroka: string; procedure word8(strokk: string); var i: integer; begin for i: =1 to length(strokk) do if strokk[i]=' ' then strokk[i]: ='_'; writeln(strokk); end; beginclrscr; readln(stroka); word8(stroka); end.

8)

program pr1; uses crt; var stroka,tmp: string; i,a: integer; beginclrscr; readln(stroka); tmp: =''; a: =0; for i: =1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin a: =a+1; writeln(tmp,' ',a); tmp: =''; end else tmp: =tmp+stroka[i]; end.

9)

program pr1; uses crt; var stroka: string; procedure word7(strokk: string); var c: char; i,a: integer; begin a: =0; for i: =1 to length(strokk) div 2 do begin c: =strokk[i]; strokk[i]: =strokk[length(strokk)-a]; strokk[length(strokk)-a]: =c; a: =a+1; end; writeln(); for i: =1 to length(strokk) do write(strokk[i]); end; beginclrscr; readln(stroka); word7(stroka); end.

10)

program pr1; uses crt; var stroka,tmp: string; i,b: integer; beginclrscr; readln(stroka); stroka[1]: ='*'; for i: =1 to length(stroka) do if stroka[i]=' ' then for b: =i to length(stroka) do if stroka[b] in ['a'..'я'] then begin stroka[b]: ='*'; break; end;

writeln(stroka); end.

  11)

program pr1; uses crt; var stroka: string; i,b: integer; beginclrscr; readln(stroka); b: =0; for i: =1 to length(stroka) do if (stroka[i]='а') or (stroka[i]='а') or (stroka[i]='о') or (stroka[i]='о') then b: =b+1; writeln(b); end.