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

293

294

Посмотреть ответы 2

Ответы на вопрос:

s1453849

Информатика

4,7(16 оценок)

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.

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.

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.

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.

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.

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.

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.

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.

Desa11

Информатика

4,6(18 оценок)

Здоров,не будет тот кто умо лишен.лишь те кто будет жизнь дань даровть имеют смысл жить.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.