Даны две строки произвольного текста. составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противно...
Даны две строки произвольного текста. составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противном случае. в программе обрабатываются две строки.
Гость
Ответ(ы) на вопрос:
Гостьprocedure Replace(var s: string; c: char);
var
i: integer;
Lett: set of char;
begin
Lett := ['A'..'z', 'А'..'я'];
for i := 1 to Length(s) do
if s[i] in Lett then s[i] := LowCase(s[i])
else s[i] := c
end;
var
s1, s2: string;
begin
write('Введите первую строку: ');
readln(s1);
write('Введите вторую строку: ');
readln(s2);
Replace(s1, '$');
Replace(s2, '_');
writeln(s1);
writeln(s2)
end.
Тестовое решение:
Введите первую строку: Карл у Клары украл кораллы, а Клара у Карла... украла кларнет! 1+2+3+4+5=15 По-моему так!
Введите вторую строку: "Colorless green ideas sleep furiously"/ (Noam Chomsky, 1957).
карл$у$клары$украл$кораллы$$а$клара$у$карла$$$$украла$кларнет$$$$$$$$$$$$$$$по$моему$так$
_colorless_green_ideas_sleep_furiously____noam_chomsky________
Не нашли ответ?
Похожие вопросы