Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых (в километрах) приведена в таблице. Определите длину кратчайшего пути между пунктами A и F, не проходящего через пункт В. Передвигаться можно только по дорогам, указанным в таблице. В ответе запишите только число.
Ғаламтор (ағылш. Internet, МФА: [ˈɪn.tə.net]) — біріккен компьютерлік желілердің әлемдік жүйесі үшін ақпаратты сақтау және беру. Жиі айтылатын Бүкіләлемдік желі мен Ғаламдық желісі, сондай-ақ жай ғана Желі. Базасында құрылып, стек TCP/IP хаттамалар. Негізінде, Интернет жұмыс істейді, Всемирная паутина (World Wide Web, WWW) және басқа да көптеген жүйелері деректер.30 маусым 2012 жылы пайдаланушылардың саны үнемі пайдаланатын Интернет құрады, одан 2,5 млрд адам, үштен бір бөлігі Жер шарының пайдаланып Интернет.2015 жылдың ортасында пайдаланушылар саны жетті 3,3 млрд адам. Бұл-көбіне-көп себепші болды кең таралуымен ұялы желілерін интернетке 3G және 4G стандарттарын дамуымен, әлеуметтік желілер мен арзандатылған құны, интернет-трафиктің[1].
Var s:string; n,k,i:integer; begin for n:=1 to 2 do begin writeln('Введите строку ',n,':'); readln(s); k:=0; for i:=1 to length(s) do begin case s[i] of '[': k:=k+1; ']': k:=k-1; end; end; if k=0 then writeln('В строке ',s,' количество [ и ] одинаково') else writeln('В строке ',s,' количество [ и ] не одинаково'); end; end.
Пример: Введите строку 1: c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково Введите строку 2: Просто [ пример ]] со [[ скобками В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
n,k,i:integer;
begin
for n:=1 to 2 do
begin
writeln('Введите строку ',n,':');
readln(s);
k:=0;
for i:=1 to length(s) do
begin
case s[i] of
'[': k:=k+1;
']': k:=k-1;
end;
end;
if k=0
then writeln('В строке ',s,' количество [ и ] одинаково')
else writeln('В строке ',s,' количество [ и ] не одинаково');
end;
end.
Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково