Регистрация
prostoliiiii
25.11.2020 15:59
Информатика
Есть ответ 👍

С , 34. В текстовом файле k7c-2.txt находится цепочка из символов
латинского алфавита A, B, C, D, E, F. Найдите количество цепочек
длины 3, удовлетворяющих следующим условиям:
 1-й символ – один из A, C, E;
 2-й символ – один из A, D, F, который не совпадает с
первым;
 3-й символ – один из A, B, F, который не совпадает со
вторым.

256
274
Посмотреть ответы 2

Ответы на вопрос:

Karinavalitova1
Karinavalitova1
4,4(43 оценок)

ответ:1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

var

 f: text;

 i, k, max: integer;

 s: string;

begin

 assign(f, 'D:\24.txt');

 reset(f);

 readln(f, s);

 max := 1;

 k := 1; // кол-во подряд идущих

 for i := 2 to length(s) do

 begin

   if s[i] <> s[i - 1] then

   begin

     inc(k);

     if k > max then max := k;

   end

   else k := 1;

 end;

 write(max)

end.

Объяснение:

zild228
zild228
4,5(48 оценок)

var

  a, b, c: real;   {a и b - вводимые с клавиатуры числа, c - буферная переменная, которая будет содержать значение переменной a}

 

begin

  writeln('введите 2 числа');

  readln(a, b);   //вводим числа

  c: = a;  

  if a < b then {если a < b, то заменяем а на среднее арифметическое этих чисел, b - на произведение этих чисел и распечатываем их}

  begin

    a: = (a + b) / 2;  

    b: = c * b;

    writeln('a < b => a = ', a, ', b = ', b);

  end;

  if b < a then   {если b < a, то заменяем а на произведение чисел, b - на среднее арифметическое чисел}

  begin

    a: = a * b;  

    b: = (c + b) / 2;

    writeln('b < a => a = ', a, ', b = ', b);

  end;

  if a = b then writeln('числа равны');   {числа числа равны, то печатаем сообщение об этом}

end. 

если все правильно, отметь решение как лучшее)

Популярно: Информатика