напишите на паскаль программу дана строка. программа заменяет все
строчные буквы б на 01 а все заглавные Б на 101. если в строке нет таких букв то программа заменяет предпоследний символ на первый
строчные буквы б на 01 а все заглавные Б на 101. если в строке нет таких букв то программа заменяет предпоследний символ на первый
More Questions From This User See All
Answers & Comments
Не за что.
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.