Вопрос по информатике:
Программирование, язык Turbo Pascal.
Ввести строку с клавиатуры. Заменить все вхождения буквы "а" (рус и англ) на пробел. Через функцию copy
Пожаловаться
- 25.09.2017 14:22
- Информатика
- remove_red_eye 13587
- thumb_up 11
Ответы и объяснения 1
Тут не нужна 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.
Пожаловаться
- 26.09.2017 01:58
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы