Объяснение:
Задание 1
program bukva;
const R=[' ','.',',',';',':','?','!','-']; // разделители
var
s,bukv:string;
i,kol,len:integer;
procedure UpCaseRus(var s:string);
{русские в верхний регистр}
var i:integer;
begin
for i:=1 to length(s) do
if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)
else if s[i]='ё' then s[i]:='Ё';
end;
begin
readln(s);
readln(bukv);
UpCaseRus(s);
UpCaseRus(bukv);
For i:=length(s) downto 2 do
if ((s[i] in R) and (s[i-1] in R)) then delete(s,i,1);
len:=length(s);
kol:=0;
for i:=len downto 1 do
begin
if s[i] in R then
if s[i+1]=bukv then kol:=kol+1;
end;
if s[1]=bukv then kol:=kol+1;
writeln('Слов на букву '+bukv+' ',kol);
readln;
end.
Задание 2
const r=[' ','.',',',';',':','?','!','-'];
var
s:string;
i,kol,d:integer;
begin
readln(s);
len:=length(s);
kol:=0; d:=0;
For i:=length(s) downto 2 do
if ((s[i] in r) and (s[i-1] in r)) then delete(s,i,1);
for i:=1 to length(s) do
begin
if s[i] in r then kol:=kol+1
else if (s[i] in ['0'..'9']) then d:=d+1;
end;
writeln('Слов всего ',kol+1);
writeln('Цифр в тексте ',d);
readln;
end.
ответ:
а́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, или искусства, то есть объективных результатов творческой деятельности людей в этих областях. программы для эвм и базы данных также охраняются авторским правом. они приравнены к произведениям и сборникам, соответственно[1].
название «авторское право» является условным, так как закон регулирует и охраняет права «правообладателя», а не автора.
термин копира́йт © (. copyright, от «копировать» и «право») в языке обозначает авторское право, то есть право копировать, воспроизводить[2].
Редактирование (фр. rédaction от лат. redactus – приведённый в порядок) — многоаспектное понятие, имеющее следующие основные значения[1]:
род профессиональной деятельности (преимущественно в области периодической печати, книгоиздательского дела,кинематографии, телевидения, радиовещания), связанной с подготовкой к выпуску печатных изданий, теле- и радиопередач, кинофильмов; составная часть издательского процесса, содержанием которой является творческая работа редактора (обычно совместно с автором) над рукописью произведения в целях улучшения его содержания и формы, подготовки кполиграфическому воспроизведению и выпуску в свет; приведение содержания и формы любого документа, написанного или подготовленного кем-либо, в соответствие с общепринятыми или специально установленными требованиями и нормами.ФОРМАТИРОВАНИЕ (инициализация, разметка диска; англ. formatting, format, initialization), процедура записи на магнитный диск (жесткий диск (см. ЖЕСТКИЙ ДИСК), флэш-память (см. ФЛЭШ-ПАМЯТЬ)) меток, определяющих последующее расположение записей данных (блоков, секторов, дорожек), участков непригодных для записи, а также другой управляющей информации. Форматирование выполняется перед первым использованием диска, при последующем форматировании вся информация на диске уничтожается.
Энциклопедический словарь. 2009.