Из слова "форма" получить слово "фирма" 2) дан текст "картографирования" получить слова граф, арт, роф. 3) сколько раз в заданном условии повторяется буква а.4) дано предложение ( s) подсчитать количество символов (а решить , нужно.

Var s: string; i,k: integer; begin s: ='форма'; writeln('слово: ',s); s[2]: ='и'; writeln('получили слово: ',s); s: ='картографирования'; writeln('из слова: ',s); writeln('получили слова: ', copy(s,6,4),' ',copy(s,2,3), ' ', copy(s,11,2)+s[9]); writeln('введите предложение: '); readln(s); for i: =1 to length(s) do if (s[i]='а')or(s[i]='а') then k: =k+1; writeln('в заданном предложении буква а встречается ',k,' раз'); end.

5. program untitled; const n=3; var max,i,num: integer;     m: array [1..n] of integer; begin  max: =-1000;   for i: =1 to n do   readln(m[i]);   for i: =1 to n do begin   if ((m[i]> m[i+1]) and (m[i]> max)) then begin     max: =m[i];     num: =i;     end;     end;   for i: =1 to n do begin       if i< > num then       m[i]: =2;   end;   for i: =1 to n do begin     write(m[i]);     write(',');   end; end. 

Def dijkstra(graph, node): """ simulate the dijkstra algorithm in a graph """ distance_to = {} distance_to[node] = 0 distance_path = {} while (distance_to): # in case we have a disjoint graph op_node = min_distance(distance_to) distance_path[op_node] = distance_to[op_node] del distance_to[op_node] for x, x_len in graph[op_node].items(): if x not in distance_path: if x not in distance_to: distance_to[x] = distance_path[op_node] + x_len elif distance_to[x] > distance_path[op_node] + x_len: distance_to[x] = distance_path[op_node] + x_len return distance_path