Регистрация
Лианиа
13.12.2022 21:19
Информатика
Есть ответ 👍

ABCPascal Составить программу, которая каждую встреченную в заданном предложении букву «р» заменяла бы сочетанием букв «ля».

121
494
Посмотреть ответы 2

Ответы на вопрос:

masha91672
masha91672
4,5(12 оценок)

Відповідь:

program ReplaceRWithLya;

var

 inputString: string;

 outputString: string;

 i: integer;

begin

 inputString := 'Это предложение содержит несколько букв р.';

 outputString := '';

 for i := 1 to length(inputString) do

 begin

   if inputString[i] = 'р' then

     outputString := outputString + 'ля'

   else

     outputString := outputString + inputString[i];

 end;

 writeln(outputString);

end.

Пояснення:

danul1414
danul1414
4,5(25 оценок)
Каталог это файл содержащий информацию, которую нельзя изменить.  папка место для хранения информации.

Популярно: Информатика