Напишите на паскаль программу дана строка. программа заменяет все
строчные буквы б на 01 а все заглавные б на 101. если в строке нет таких букв то программа заменяет предпоследний символ на первый
kirill23710
2
07.11.2019 16:53
1
Другие вопросы по теме Информатика
tafefuyozo
15.03.2021 09:59
nik123red
18.03.2021 14:26
bts23
05.03.2020 11:12
Глеб0071
12.12.2021 19:32
NurlG
12.12.2021 19:32
3035111236
12.12.2021 19:32
Lordfantomchik
12.12.2021 19:32
wwwwwww6
12.12.2021 19:32
Популярные вопросы
- Казак тили 5 сынып 330 жаттыгу айта койындаршы егинбай, жанболат , жанпейыс,...
3 - Какие животные и растения есть в субтропиках...
3 - Соперничество производителей в рыночной . конечная цель предпринимательстой...
1 - Два велосипедиста одновременно выехали с двух станций навстречу друг другу....
3 - Построить графики функций, подробно с расчетами, можно на листочке 1) y=4x^2+4x-3...
3 - Докажите что корнивище ландыша видоизмененый побег кратко...
1 - Два косвеных признака шарообразности земли...
3 - Составьте предложение по схеме - [- =], и [- =, ||,...
2 - Измерения прямоугольного параллелепипеда равны 3 см, 9см и 12 см. найдите площадь...
1 - Складіть одне речення,ускладнене однорідними членами,при яких є узагальнювальне...
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.