Распишите. 1.определите значение целочисленных переменных x и y после выполнения фрагмента программы х : = 19; у : = 3; z : = у*2; у : = х mod у; х : = х - z; у : = у + z;

Var       x, y, z: integer ; begin             x : = 19;       y : = 3;       z : = y * 2;       y : = x mod y;       x : = x - z;       y : = y + z;       writeln('x = ', x, ', y = ', y, ', z = ', z);             end. вывод x = 13, y = 7, z = 6

Текстовый файл содержит только заглавные буквы латинского алфавита (ABC…Z). Определите символ, который чаще всего встречается в файле сразу после буквы A. В ответе запишите сначала этот символ, а потом сразу (без разделителя) сколько раз он встретился после буквы A. Например, в тексте ABCAABADDD после буквы A два раза стоит B, по одному разу – A и D. Для этого текста ответом будет B 2.

PythonВыделить код

1

2

3

4

5

F=open('24-1.txt')

d=[]

for s in F:

for i in range(len(s)):

if s[i]=='A'...

записать на Python как отследить какая буква чаще вcтречается после буквы A.

в написании контрольных, курсовых и дипломных работ здесь

0

// Реализация алгоритма Дейкстры (см. Вики)

// При вводе

// 6 2 3

// 255 3 7 255 255 2

// 3 255 255 255 255 255

// 7 255 255 3 1 255

// 255 255 3 255 1 2

// 255 255 1 1 255 255

// 2 255 255 2 255 255

// Выдает: 9
// Это и есть кратчайший путь

// Pascal ABC.NET

var

 gr: Array of Array of Word;

 best: Array of Word;

 proceed: Array of Boolean;

 n, s, f, last: Word;

 fIn, fOut: text;

begin

 //Init

 Assign(fIn, 'INPUT.TXT');

 Assign(fOut, 'OUTPUT.TXT');

 Reset(fIn);

 Rewrite(fOut);

 Read(fIn, n, s, f);

 Dec(s);

 Dec(f);

 SetLength(gr, n);

 for var i := 0 to n-1 do

   SetLength(gr[i], n);

 best := ArrFill(n, Word.MaxValue);

 SetLength(proceed, n);

 //Input Gr

 for var i := 0 to n-1 do

   for var j := 0 to n-1 do begin

     var buffer: Integer;

     Read(fIn, buffer);

     if buffer < 0 then

       buffer := Integer.MaxValue;

     gr[i, j] := Word(buffer);

   end;

 //Init S-node

 best[s] := 0;

 proceed[s] := true;

 last := s;

 //Algorithm

 loop n-1 do begin

   for var i := 0 to n-1 do

     if not proceed[i] then

       best[i] := Min(best[i], best[last] + gr[last][i]);

   var minim := Word.MaxValue;

   for var i := 0 to n-1 do

     if (not proceed[i]) and (best[i] < minim) then begin

       minim := best[i];

       last := i;

     end;

   proceed[last] := true;

   //PrintLn(best);

   //PrintLn(last);

 end;

 //Output

 if best[f] >= Word.MaxValue then

   WriteLn(fOut, -1)

 else

   WriteLn(fOut, best[f]);

 Close(fIn);

 Close(fOut);

end.