Question

напишите на паскале программу.

дана строка длиной N( вводится с

клавиатуры) в которой могут быть

только однозначные числа включая 0

и буквы русского алфавита. программа заменяет в строке все

строчные б на 01 а заглавные Б на 101.

если в строке нет таких букв то программа заменяет предпоследний

символ на первый

Answer 1

Не за что.

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.