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.

Answer 2

Код на Pascal:

goCopy code
program ReplaceChars;

var
  str: string;
  len, i: integer;

begin
  // Вводим строку
  write('Введите строку: ');
  readln(str);
  len := length(str);
  
  // Заменяем символы
  for i := 1 to len do
  begin
    if str[i] = 'б' then
      str[i] := '0'
    else if str[i] = 'Б' then
      str[i] := '1';
  end;
  
  // Ищем предпоследний символ
  if (pos('б', str) = 0) and (pos('Б', str) = 0) and (len > 1) then
    str[len-1] := str[1];
  
  // Выводим измененную строку
  writeln('Результат: ', str);
end.

Программа сначала считывает строку с клавиатуры, затем проходится по ней символ за символом и заменяет все строчные 'б' на '0' и все заглавные 'Б' на '1'. Если в строке нет таких символов, то программа заменяет предпоследний символ на первый. Измененная строка выводится на экран.