Var s,st: string; a: array[1..255] of integer; i: integer; begin write('строка: '); readln(s); for i:=1 to 255 do a[i]:=0; for i:=1 to length(s) do inc(a[ord(s[i])]); st:=''; for i:=1 to length(s) do if ((a[ord(s[i])]>=2) and (s[i] in ['а'..'я'])) then continue else st:=st+s[i]; writeln('новая строка: ',st); end.
строка: Это строка для проверки. новая строка: Э са для пвеи.
Если нужно, чтобы не различались прописные и строчные буквы, то другой вариант программы:
var s: string; a: array[1..255] of integer; i,j: integer; begin write('строка: '); readln(s); for i:=1 to 255 do a[i]:=0; for i:=1 to length(s) do if ord(s[i])>32 then begin inc(a[ord(s[i])]); if s[i] in ['а'..'я'] then inc(a[ord(UpperCase(s[i]))]) else if s[i] in ['А'..'Я'] then inc(a[ord(LowerCase(s[i]))]); end; j:=0; for i:=1 to length(s) do if (a[ord(s[i])]>=2) then continue else begin inc(j); s[j]:=s[i]; end; delete(s,j+1,length(s)-j); writeln('новая строка: ',s); end.
a: array[1..255] of integer;
i: integer;
begin
write('строка: '); readln(s);
for i:=1 to 255 do a[i]:=0;
for i:=1 to length(s) do inc(a[ord(s[i])]);
st:='';
for i:=1 to length(s) do
if ((a[ord(s[i])]>=2) and
(s[i] in ['а'..'я'])) then continue
else st:=st+s[i];
writeln('новая строка: ',st);
end.
строка: Это строка для проверки.
новая строка: Э са для пвеи.
Если нужно, чтобы не различались прописные и строчные буквы, то другой вариант программы:
var s: string;
a: array[1..255] of integer;
i,j: integer;
begin
write('строка: '); readln(s);
for i:=1 to 255 do a[i]:=0;
for i:=1 to length(s) do
if ord(s[i])>32 then
begin
inc(a[ord(s[i])]);
if s[i] in ['а'..'я'] then inc(a[ord(UpperCase(s[i]))])
else if s[i] in ['А'..'Я'] then inc(a[ord(LowerCase(s[i]))]);
end;
j:=0;
for i:=1 to length(s) do
if (a[ord(s[i])]>=2) then continue
else
begin
inc(j);
s[j]:=s[i];
end;
delete(s,j+1,length(s)-j);
writeln('новая строка: ',s);
end.
1) Множество компьютеров, связанных каналами передачи информации и находящихся в пределах одного помещения, здания, называется:
Г) локальной компьютерной сетью;
2) Глобальная компьютерная сеть - это:
Б) совокупность локальных сетей и компьютеров, расположенных на больших расстояниях и соединенных с каналов связи в единую систему;
3) Наибольшие возможности для доступа к информационным ресурсам обеспечивает подключения к Интернету;
В) постоянное соединение по оптоволоконному каналу;
4) Сетевой протокол - это;
А) набор соглашений о взаимодействиях в компьютерной сети;
6) Моделирование - это:
А) процесс замены реального объекта (процесса, явления) моделью, отражающей его существенные признаки с точки зрения достижения конкретной цели;
7) Модель - это:
В) материальный или абстрактный заменитель объекта, отражающий его пространственно-временные характеристики;
8) Натурное моделирование - это;
В) моделирование, при котором в модели узнается какой - либо отдельный признак объекта-оригинала;
9) Математическая модель объекта - это:
А) совокупность записанных на языке математики формул, отражающих те или иные свойства объекта-оригинала или его поведение;
10) Рисунки, карты, чертежи, диаграммы, схемы, графики представляют собой:
Г) графические информационные модели;