Завдання 3. Кут Дано кут градусної міри а. Склади програму, яка буде знаходити градусн
міри кутів, на які заданий кут розбивається бісектрисою, що проходить мія
його сторонами. Передбач можливість надавати змінній не тільки цілих, але
дробових значень. Збережи програму з ім'ям Завдання 3 в
Практична Прізвище,
пак​

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.