Напишите на паскале программу.
дана строка длиной n( вводится с
клавиатуры) в которой могут быть
только однозначные числа включая 0
и буквы алфавита. программа заменяет в строке все
строчные б на 01 а заглавные б на 101.
если в строке нет таких букв то программа заменяет предпоследний
символ на первый
8Евген8
1
06.11.2019 21:04
0
Другие вопросы по теме Информатика
annapar2017p00w0y
10.01.2020 21:59
baukovaevgehia2
09.09.2019 18:10
EmiliKotik123
09.09.2019 18:10
papstik
04.04.2019 20:33
garkachev20031
04.04.2019 20:34
veronikaandruseiko
22.08.2019 19:20
мамочка92
22.08.2019 19:20
enzhedob
22.08.2019 19:20
grasstv
22.08.2019 19:10
Популярные вопросы
- 6-тапсырма. шығармадағы көріктеу-айшықтау (көркемдегіш) дарын, мақал-мәтелдерді,...
1 - Сочинение на тему ярославна - героиня слова о полку игореве план: 1....
3 - Что объединяет термины: башня, арка, купол, храм, донжон и базилика?...
2 - Мне нужно придумать предложение со словами дипломатична аудiэнцiя, акламацiя,...
3 - Составить схему предложения гномик в красном костюме поливает цветы....
2 - Найдите координаты вершины параболы y=-5x2−8x ....
1 - Транскрипция предложения. ученик, который учится без желания, --это...
3 - Какой длины нужно взять никеленовую проволоку сечением 0,2мм² для изготовления...
2 - Ағылшын 7 класс 14 бет 4 тапсырма комектезинздерші...
1 - Complete the second sentence so that it has the same meaning as the...
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.