Напишите на паскале программу.
дана строка длиной n( вводится с
клавиатуры) в которой могут быть
только однозначные числа включая 0
и буквы алфавита. программа заменяет в строке все
строчные б на 01 а заглавные б на 101.
если в строке нет таких букв то программа заменяет предпоследний
символ на первый
Не за что.
var a,c: string; b: integer;
begin
write('Введите строку:');
readln(a);
for b:=1 to length(a) do begin
If a[b]='б' then c:=c+'01'
else
If a[b]='Б' then c:=c+'101'
else
begin
a[length(a)-1] := a[1];
c:=a
end
end;
write(c);
end.