profile
Опубликовано 6 лет назад по предмету Информатика от Lesliy

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

Паскаль.

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

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

  1. Ответ
    Ответ дан PsyhoAssasin

    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.

Самые новые вопросы