Хотя бы что то через программу 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.

1.американский учёный, и философ, основоположник кибернетики и теории искусственного интеллекта.мировую известность винеру принесли его труды в области логики и теоретической .заслуга норберта винера в том, что он впервые понял принципиальное значение информации в процессах . 2.американский инженер и , его работы являются синтезом идей с конкретным анализом чрезвычайно сложных проблем их технической реализации он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. шеннон внес огромный вклад в теорию вероятностных схем, теорию автоматов и теорию систем — области наук, входящие в понятие «кибернетика». в 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации 3)тед нельсон в 1965 году 4)тим бернерс ли в 1989 году 5), внесший значительный вклад в развитие , механики , и астрономии

4 октября 1957 года запустил первый искусственный спутник земли, в результате чего отставание сша стало видно невооруженным взглядом. запуск первого искусственного спутника и стал причиной подписания президентом сша дуайтом эйзенхауэром документа о создании в рамках министерства обороны агентства по перспективным научным проектам и исследованиям - arpa (advanced research projects agency).

в августе 1962 года дж. ликлайдером из массачусетского технологического института   была опубликована серия заметок, в которой обсуждалась концепция "галактической сети" . автор предвидел создание сети взаимосвязанных компьютеров, с которой каждый сможет быстро получать доступ к данным и программам, расположенным на любом компьютере. по духу эта концепция близка к современному состоянию интернета. в октябре 1962 года ликлайдер стал первым руководителем этого компьютерного проекта. advanced research projects agency   сменило название на defence advanced research projects agency   в 1971 году, затем вернулось к прежнему названию arpa в 1993 году и, наконец, снова стало именоваться darpa в 1996 году. в статье используется текущее название - darpa. ликлайдер сумел доказать своим преемникам по работе   - ивану сазерленду   и бобу тейлору , а также исследователю лоуренсу робертсу всю важность этой сетевой концепции.

леонард клейнрок из mit опубликовал первую статью по теории пакетной коммутации в июле 1961 года, а первую книгу - в 1964 году. клейнрок убедил робертса в теоретической обоснованности пакетных коммутаций (в противоположность коммутации соединений), что явилось важным шагом в направлении создания компьютерных сетей. другим ключевым шагом должна была стать организация реального межкомпьютерного взаимодействия. для изучения этого вопроса робертс совместно с томасом меррилом   в 1965 году связал компьютер , расположенный в массачусетсе, с находившейся в калифорнии. связь осуществлялась по низкоскоростной коммутируемой телефонной линии. таким образом, была создана первая в мире (хотя и маленькая) нелокальная компьютерная сеть. результатом этого эксперимента стало понимание того, что компьютеры с разделением времени могут успешно работать вместе, выполняя программы и используя данные на удаленной машине. стало ясно и то, что телефонная система с коммутацией соединений абсолютно непригодна для построения компьютерной сети. убежденность клейнрока в необходимости пакетной коммутации получила еще одно подтверждение.