2)Pascal
var s: string;
i, f, g: integer;
begin
writeln('Введите строку с угловыми скобками:');
readln(s);
f := pos('<', s);
if f = 0
then begin
write('Нет "<"');
if pos('>', s) = 0
then writeln('и ">"')
else writeln
end
else begin
g := 0;
for i := length(s) downto 1 do
if s[i] = '>'
then begin
g := i;
break
end;
if g = 0
then writeln('Нет ">"')
else if f > g
then writeln('">" левее "<"')
else begin
delete(s, f, g - f + 1);
writeln('Результат:');
writeln(s)
end
end
end.
Если гарантированно, что в тексте есть только по одному правильно расположенному символу "<" и ">", то совсем просто:
Pascal
var s: string;
begin
writeln('Введите строку с угловыми скобками:');
readln(s);
delete(s, pos('<', s), pos('>', s) - pos('<', s) + 1);
writeln('Результат:');
writeln(s)
end.
0
1) Документ - это письменное подтверждение какого-либо события или факта
2) Текстовый документ - это представленная на бумажном, электронном или ином материальном носителе информация в текстовой форме
3) Раздел, строка, страница(это не точно)
4) Рассказ, письмо, справочник
5) Раздел - это часть текста, разделы могут включать в себя подразделы.
6) Текст, таблицы, рисунки (зависит это от того, какого типа документ)
7) Удобство редактирования, лёгкость копирования, лёгкость передачи по сетям
8) Электронная книга - это компактное устройство, которое предназначено для отображения текстовой информации, представленной в электронном виде
9) В электронных книгах существует поиск по тексту
10) С текста человек может передать свои мысли, чувства и эмоции
1)
var i,j:integer;
s:string;
c:char;
begin
write('Введите предложение: ');
readln(s);
s:=s+' ';
j:=0;
c:=s[1];
For i:=1 to Length(s) do
If s[i]=' ' then
begin
If c=s[i-1] then
j:=j+1;
If i<Length(s) then
c:=s[i+1];
end;
Writeln('Начинается и заканчвается на одну и ту же букву ', j, ' слов(о)(а)' );
end.
2)
var s: string;
begin
writeln('Введите строку с угловыми скобками:');
readln(s);
delete(s, pos('<', s), pos('>', s) - pos('<', s) + 1);
writeln('Результат:');
writeln(s)
end.