Программирование, язык Turbo Pascal.

Ввести строку с клавиатуры. Заменить все вхождения буквы "а" (рус и англ) на пробел. Через функцию copy

Question

Информатика

Генаша

20 июня, 08:19

Программирование, язык Turbo Pascal.

Ввести строку с клавиатуры. Заменить все вхождения буквы "а" (рус и англ) на пробел. Через функцию copy

+5

Ответы (1)

Знаете ответ на вопрос?

Татуля · Answer 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.

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

Программирование, язык Turbo Pascal.

Ввести строку с клавиатуры. Заменить все вхождения буквы "а" (рус и англ) на пробел. Через функцию copy