Программирование, язык turbo pascal. ввести строку - вопрос №8671343 от Дима6u9432 22.01.2021 19:06

Question

Информатика: Программирование, язык turbo pascal. ввести строку с клавиатуры. заменить все вхождения буквы а (рус и ) на пробел. через функцию copy

Дима6u9432 · Answer

Тут не нужна Copy! Абсолютно не нужна. Ей не пользуются для замены символа в строке.

var
    s:string;
    i,n,p:integer;

begin
    Readln(s);
    n:=Length(s);
    for i:=1 to n do
        if (s[i]='a') or (s[i]='а') then s[i]:=' ';
    Writeln(s);
    Readln
end.

Программирование, язык turbo pascal. ввести строку с клавиатуры. заменить все вхождения буквы "а" (рус и ) на пробел. через функцию copy