Ответы на вопрос:
Var i: integer; s: string; begin readln(s); for i : = 1 to s.length do if(s[i] = '.') then s[i] : = 'm'; writeln(s); end.
Популярно: Информатика
-
До ть будь ласка!!! 35бал....
BitBul102.12.2021 20:49 -
Вводится последовательность натуральных чисел. Признак конца ввода - ноль....
dassshaVv13.01.2023 21:52 -
Какие преимущества использования электронных таблиц по сравнению с бумажными?...
zlata2514807.06.2023 13:28 -
Дана последовательность целых чисел, не превосходящих по модулю `10000`. Ноль...
Sergei7416.08.2021 18:30 -
Выполняя первую из них, Альфа увеличивает число на экране на 2, а выполняя...
тто02.03.2023 14:33 -
На значение каких свойств файла влияет формат? На основе чего осуществляется...
LizokJUISE29.06.2022 22:51 -
Вкаком случае цикл будет выполняться бесконечно, т.е. произойдёт зацикливание...
mikrob2216.09.2020 13:08 -
Реферат, набранный на компьютере, содержит 24 страницы, на каждой странице...
гаагмгмг12.02.2020 10:48 -
На карту памяти скопировали одно изображение с фотокамеры, а другое с видеокамеры....
Viktor1510204.02.2021 14:24 -
Решите на pascal нод . заранее . на приготовление японского блюда – суши израсходовано...
ааааааа5903.01.2022 09:10