Напишите эффективную программу, которая по двум данным натуральным числам x и y,не превосходящим 10000, выводит на экран и подсчитывает количество натуральных чисел, кратных пяти, на отрезке [x,y] ( включая концы отрезка)

Решение перебором АДЛТДТАТ

Объяснение:

Для начала можно понять, что первая точка и продолжение подходит только для буквы А и в итоге остаётся: -...-..--..-.--, дальше у нас 2 варианта:

1) АД.-..--..-.-- >> 1 - АДА..--..-.-- 2 - АДЛ--..-.--

2)АТ...-..--..-.-- >> АТЖ..--..-.--

Продолжаем перебирать:

1)  АДА..--..-.--  больше нельзя продолжить т.к букв из 2 точек вначале нету.

2) АДЛ--..-.--  >>   АДЛТ-..-.--  >> 1)АДЛТД-.-- 2)АДЛТТ..-.--

3) АТЖ..--..-.--  >> нельзя продолжить из за двух точек.

Продолжаем:

1)АДЛТД-.-- >> АДЛТДТАТ - это ответ

2)АДЛТТ..-.-- нельзя продолжить из за двух точек.

1)
begin
  var s1:=ReadlnString('Текст:');
  Writeln('k = ',s1.Where(c->Pos(c,'01')>0).Count);
  var s2:=s1.Select(c->c='0'?'A':c).Select(c->c='1'?'M':c);
  s2.Println;
end.

Пример:
Текст: Текст с 1 и 0: 110+101=1011
k = 12
Текст с M и A: MMA+MAM=MAMM

2)
var s1,s2:string;
i,k:integer;
begin
writeln('Введите текст:');
readln(s1);
k:=0;
s2:='';
for i:=1 to length(s1) do
 if s1[i]='0'
  then begin s2:=s2+'A'; k:=k+1; end
  else if s1[i]='1' then begin s2:=s2+'M'; k:=k+1; end else s2:=s2+s1[i];
writeln(s2);
writeln('k = ',k);
end.

Пример:
Введите текст:
Текст с 1 и 0: 110+101=1011
Текст с M и A: MMA+MAM=MAMM
k = 12