Программирование, язык turbo pascal. ввести строку - вопрос №8672020 от Зиколя 24.04.2020 10:04

Question

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

Зиколя · 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