uses crt; var s:string; i,j:byte; begin clrscr; writeln('Введите строку, содержащую точки, как по 1, так и группами:'); readln(s); if (length(s)>1)and(copy(s,1,2)='..') then{если в начале строки более 1 точки} begin {или строка вообще из точек} while (s[1]='.')and(length(s)>0) do delete(s,1,1); insert('...',s,1); end; if(length(s)>2)and(s<>'...') then{если осталось более 2 сиволов, начнем проверять с конца} begin i:=length(s)-2; while i>=1 do if (s[i]<>'.')and(copy(s,i+1,2)='..') then begin while (s[i+1]='.')and(i+1<=length(s)) do delete(s,i+1,1); insert('...',s,i+1); i:=i-1; end else i:=i-1; end; write(s); readln end.
Понятие информатики. История развития информатики. Место информатики в ряду других фундаментальных наук.
Мировоззренческие экономические и правовые аспекты информационных технологий.
Понятие информации и ее измерение. Количество и качество информации. Единицы измерения информации. Информация и энтропия.
Сообщения и сигналы. Кодирование и квантование сигналов.
Информационный процесс в автоматизированных системах. Фазы информационного цикла и их модели.
Информационный ресурс и его составляющие.
Информационные технологии. Технические и программные средства информационных технологий.
Основные виды обработки данных. Обработка аналоговой и цифровой информации. Устройства обработки данных и их характеристики.
Принцип программного управления.
Функциональная и структурная организация компьютера.
Сетевые технологии обработки данных. Виды и характеристики носителей и сигналов. Спектры сигналов. Модуляция и кодирование.
Каналы передачи данных и их характеристики. Методы повышения помехоустойчивости передачи и приема. Современные технические средстваобмена данных и каналообразующей аппаратуры.
Организация данных на устройствах с прямым и последовательным доступом. Файлы данных. Файловые структуры. Носители информации и технические средства для хранения данных.
Представление информации в цифровых автоматах (ЦА). Информационные основы контроля работы цифровых автоматов.
Систематические коды. Контроль по четности, нечетности, по Хеммингу.
var s:string;
i,j:byte;
begin
clrscr;
writeln('Введите строку, содержащую точки, как по 1, так и группами:');
readln(s);
if (length(s)>1)and(copy(s,1,2)='..') then{если в начале строки более 1 точки}
begin
{или строка вообще из точек}
while (s[1]='.')and(length(s)>0) do delete(s,1,1);
insert('...',s,1);
end; if(length(s)>2)and(s<>'...') then{если осталось более 2 сиволов, начнем проверять с конца}
begin i:=length(s)-2;
while i>=1 do
if (s[i]<>'.')and(copy(s,i+1,2)='..') then
begin
while (s[i+1]='.')and(i+1<=length(s)) do delete(s,i+1,1);
insert('...',s,i+1);
i:=i-1;
end
else i:=i-1;
end;
write(s);
readln
end.