в заданном слове из восьми латинских заглавных букв на каждом шагу можно заменять букву
на другую букву или заменять одинаковые буквы на другие одинаковые. сколько шагов необходимо,
чтобы получить слово chychkan?
формат входных данных
слово из восьми латинских заглавных букв.
формат выходных данных
неотрицательное целое число

//Вот программа, которая кодирует слова в системах счисления от 2 до 10
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0

var
 a,i,b,r,n,j,bug:integer;
 s,se,slo,slof:string;

procedure preob(var a,b,n:integer; var se:string);
 begin
  repeat
   b:=a mod n;
   a:=a div n;
   str(b,se);
   s+=se;
  until (a<=n-1);
 end;

begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.

//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-

Объяснение:

var a,b:real; c,e:integer;

begin

writeln('Введите два целых числа');

readln(a);

// нет ввода второго целого числа. надо написать readln(b);

c:=a/b; //ошибка! при делении может получится дробное число, а с указано как целое

d:=a mod b; //переменная d не описана в разделе var

e:=c+d;

writeln(c);

writeln(d);

writeln(e);

end.

Готовая программа:

var c, e:real; a,b,d:integer;

begin

writeln('Введите два целых числа');

readln(a);

readln(b);

c:=a/b;

d:=a mod b;

e:=c+d;

writeln(c);

writeln(d);

writeln(e);

end.