Question

Строковые величины.

Паскаль.

В данном предложении заменить всюду слог "над" на слог "под".

Буду благодарна!

Answer 1

Program Zamena; 

Uses Crt; 

var s:string;
       i:integer;
begin

     clrscr;

      write('Введите строку:')
      readln(s);
      if pos('над',s)<>0 then
           begin
              i:=pos('над',s);
             delete(s,i,3);
             insert('под',s,i);
             writeln('Строка после замены:',s);
          end
  else  writeln('нету Такого Слога!');

   readkey;
end.