Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Паскаль.

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

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

Ответ оставил Гость

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.