Boanilhat
4 год назад
Программирование, язык Turbo Pascal.Ввести строку с клавиатуры. Заменить все вхождения буквы "а" (рус и англ) на пробел. Через функцию copy
ОТВЕТЫ
Николай
Oct 24, 2020
Тут не нужна 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.
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.
261
Смежные вопросы: