ABCPascal
Составить программу, которая каждую встреченную в заданном предложении букву «р» заменяла бы сочетанием букв «ля».
Ответы
Ответ дал:
0
Відповідь:
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.
Пояснення:
Вас заинтересует
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад
7 лет назад