Program n_15; var i: integer; x: real; begin writeln ('график тренировок'); i: =1; x: =10; repeat i: =i+1 x: =x+0.1*x; until x> =25; writeln ('начиная с ', i, '-го дня спортсмен будет пробегать 25 км') end. дополните программу возможностью определить длину пути, который пробежит спортсмен за все найденное выше время тренировок. указание: обозначьте переменную s, опишите ее, добавьте в тело цикла накопление суммы расстояний в эту переменную (строка вида: s: =s+что-то) – подумайте, в какое место тела цикла нужно поставить эту формулу, выведите на экран значение s, округлив его до двух знаков после запятой (s: 3: 2).

1080

Объяснение:

Разберём 2 варианта.

1) когда буквы Р и Г постоянны, буква Н не используется, а остальные 3 буквы используются произвольно.

Получаем, что у буквы Р есть 5 вариантов постановки, у буквы Г - 4 варианта, и есть 3 места по 3 буквы.

Перемножаем: 5*4*3*3*3=540 вариантов.

2)  когда буквы Р и Г постоянны, буква Н используется, а остальные 3 буквы используются произвольно.

Получаем, что у буквы Р есть 5 вариантов постановки, у буквы Г - 4 варианта, у буквы Н - 3 варианта и есть 2 места по 3 буквы.

Перемножаем: 5*4*3*3*3=540 вариантов.

Чтобы получить ответ, складываем оба варианта, получаем 540+540=1080 кодов

Объяснение:

program zadacha;

var d, o: text;

i, j, k, m, s: integer;

 begin

 assign(d, 'c:\data.txt');

 reset(d);

 assign(o, 'c:\output.txt');

 rewrite(o);

 i := 1;

 j := 1;

 readln(d, m);

 s := m;

 while not(eof(d)) do

 begin

     readln(d, k);

     if k = m

       then i := i + 1

       else

         begin

           if i > j then

             begin

               s := m;

               j := i

             end;

           m := k

         end;

   end;

 writeln(o, 'Число: ', s, ', длина цепочки: ', i);

 close(d);

 close(o)

end.