Написать программу заменяющую одну букву на другую и подсчитывающую сколько раз ее заменили. (Букву любую на любую другую)
Тлопап
1
30.04.2020 15:50
0
Другие вопросы по теме Информатика
Myrzik007
25.01.2022 13:20
sonyashestakova
25.01.2022 13:16
димитриусис
25.01.2022 13:09
05971vitaznadez
25.01.2022 13:04
roman81rudi
24.06.2021 15:00
nasty301
24.06.2021 15:01
borz2006
24.06.2021 15:01
Токаарічіна
24.06.2021 15:09
Популярные вопросы
- Билет на спектакль 12 месяцев стоит для взрослого 900 рублей для...
3 - Сила это причина тела.различают несколько видов различной природы.сила,...
2 - Площина альфа і бета перетинаються по прямій c. пряма a належить...
3 - Тся или ться укажите число и лицо глаголов лежит котище не шелохнется...
3 - Составим уравнение реакции соляной кислоты с перманганатом калия1....
2 - 1.укажите номера слов, в которых пишется ь: 1) вскач… 2) настеж…...
1 - Городской бюджет составляет 62 млн рублей, а расходы на одну из...
2 - Можете этот текст пересказать в 5 предложениях на казахском с...
1 - Костяника проверочное слово к гласной я....
3 - [tex] \frac{a + 4b}{4} \geqslant \sqrt{ab} [/tex][tex] \frac{64...
3
var
ch:integer;
s: string;
i: byte;
begin
WriteLn('Введите строку: ');
ReadLn(s);
for i := 1 to Length(s) do
if s[i] = 'a' then
s[i] := 'o';
ch++;
WriteLn('Полученная строка:');
WriteLn(s);
WriteLn(ch);
end.
Объяснение: