21.05.2019 sdamgia ru/test? id=76026вариант n9 76026151. 3 n9 1157между населёнными пунктами а, в, с, d построены дороги, протяженность которых (вкилометрах) в таблице.і7seatsideопределите длину кратчайшего пути между пунктами дис. передвигаться можно только подорогам, протяжённость которых указана в таблице.1) 42) 53) 62. з no 424между населёнными пунктами a, b, c, d, e, f построены дороги, протяжённость которых -дена в таблице:
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.