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
Электронная почта - это основное средство коммуникаций Internet. Она во многом похожа на обычную почту. С ее письмо - текст, снабженный стандартным заголовком (конвертом) - доставляется по указанному адресу, который определяет местонахождение сервера и имя адресата, который имеет почтовый ящик на этом сервере, с тем, чтобы адресат мог его достать и прочесть в удобное время.
Электронная почта оказалась во многом удобнее обычной, "бумажной". Не говоря уже о том, что не приходится вставать из-за компьютера и идти до почтового ящика, чтобы получить или отправить письмо.
Электронная почта является наиболее популярным дополнением к вычислительным сетям. Это но весьма полезное средство. При использовании для связи между сотрудниками всего офиса она оказывается удобнее телефона, так как позволяет передавать отчеты, таблицы, диаграммы и рисунки, которые по телефону передать трудно.
Для электронной почты выпускается довольно много программных продуктов, поэтому с выбором нет проблем. Так, в некоторых случаях даже поставщики операционных систем уже комплектуют свои продукты средствами поддержки электронной почты. Обычно электронная почта работает в пределах локальной сети, но такие системы глобальных вычислительных сетей, как MCI Mail, INTERNET, RELCOM, CompuServe и др., предлагают электронно-почтовые услуги в национальном и даже в мировом масштабе. Работа электронной почты, не зависит от разницы в часовых поясах, и можно вести переписку с электронной почты с адресатом, который находится на другом конце света.
Обычно для создания и получения сообщений электронной почты применяются специальные почтовые программы, такие как Microsoft Outlook Express, Netscape Composer, The Bat, Eudora Pegasus, Microsoft Outlook и т.д..
Хотя электронная почта может рассматриваться как частный случай передачи файлов, она имеет ряд особенностей, не привычных для стандартных процедур пересылки файлов. Во-первых, отправитель и получатель почти всегда люди, а не машины. Это означает, что служба электронной почты состоит из двух различных, но тесно взаимосвязанных частей: одна обеспечивает взаимодействие с человеком (например, составление, редактирование, прочтение сообщений), другая - передачу сообщений (например, рассылка по спискам, обеспечение передачи).
Другое различие между электронной почтой и средствами передачи файлов общего назначения состоит в том, что почтовые послания представляют собой четко структурированный документ. Во многих системах каждое послание сопровождается большим количеством дополнительных полей. Они включают в себя имя и адрес отправителя, имя и адрес получателя, дату и время отправки письма, перечень людей, которым направлена копия письма, уровень значимости, степень секретности и многое другое.
Объяснение:
Тест по теме «Алгоритмы в языке Паскаль»
Вариант 1
1. Алгоритм, в котором команда или серия команд повторяется, называется
А) циклическим;
2. Укажите процесс, который демонстрирует работу циклического алгоритма:
A) движение часовой стрелки;
3. Какой цикл называют циклом с предусловием?
B) While;
5. Требуется подсчитать сумму натуральных чисел от 5 до 125. Какое условие нужно использовать в цикле While?
C) i<=125.
6. Сколько раз будет выполняться цикл For i:=7 to 12 do…;
B) 6 раз;
7. Сколько раз исполнится цикл:
i:=4;
while i<10 do i:=i+3;
A) 2 раза;
8. Сколько раз исполнится следующий цикл:
i:=21;
Repeat
i:=i-5
Until i<21;
A) 1
9. Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=7 to 9 do
sum:=sum+i;
B) 24;.
10 . Чему равна переменная с после выполнения алгоритма:
а:=2
b:=3
а:=а*b=6
b:=a+b=9
c:=3-2*a+b=0
c:=c-b=-9
C) -9
Тест по теме «Алгоритмы в языке Паскаль»
Вариант 2
1.Алгоритм, в котором команда или серия команд повторяется называется
A) циклическим;
2.Укажите процесс, который демонстрирует работу циклического алгоритма:
C) движение Земли вокруг своей оси.
3.Какой цикл называют циклом с постусловием?
A) Repeat;
5.Требуется подсчитать сумму натуральных чисел от 2 до 22. Какое условие нужно использовать в цикле While?
A) i<23;
6.Сколько раз будет выполняться цикл For i:=4 to 8 do…;
A)5 раз;
7.Сколько раз исполнится цикл:
i:=6;
while i<18 do i:=i+3;
C)4 раза.
8. Сколько раз исполнится следующий цикл:
i:=12;
Repeat
i:=i-2
Until i<4;
B)5;
9.Чему будет равна переменная sum после выполнения фрагмента программы:
sum:=0;
for i:=5 to 8 do
sum:=sum+i;
C)26.
10. Чему равна переменная с после выполнения алгоритма:
а:=4
b:=1
b:=b-a=-3
b:=b*a=-12
a:=a-2*b=28
c:=a+b=16
B) 16