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

задачка по паскалю (⋋▂⋌)
_________________
дана строка символов (или вводится с клавиатуры любой текст)
в введенном предложении заменить слог "не" на слог "да"

  1. Ответ
    Ответ дан Gleb1Kosyrev
    var s:string;
    i,k:integer;
    begin;
    readln(s);
    while pos('не',s)<>0 do //пока есть 'не' в строке
    begin;
    k:=pos('не',s);         //сохраняем позицию не
    delete(s,pos('не',s),2); //удаляем не из строки
    insert('да',s,k); //ставим не её место да
    end;
    writeln(s);
    end.
Самые новые вопросы