Предмет: Информатика, автор: bry4aeva

Написать программу,которая считает в строке все символы A и изменяет на символ B

Ответы

Автор ответа: Аноним
0
Var
   S:string;
   i:integer;
   A,B:char;
Begin
Write('Введите текст: ');
ReadLn(S);
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For i:= 1 to Length(S) do
    if S[i] = A then S[i]:=B;
WriteLn(S)
End.
Похожие вопросы
Предмет: История, автор: 5830380
Решите кроссворд.
По горизонтали: 1. Система идей, рассматривающая человека как граж-
данина мира. 2. Обмирщение (сознания) или обращение церковной
собственности в светскую. 3. Правитель; глава государственной и
исполнительной власти. 4. Самое влиятельное сословие. 5. «Те, кто
молится». 6. Право распоряжаться плодами своего труда. Одно из
важнейших понятий в философии Просвещения наряду со свободой
и равенством. 7. Экономическая политика, основанная на преобла-
дании вывоза (экспорта) товаров за границу над их ввозом (импор-
том) с целью привлечения в страну денег. 8. Многоместная карета,
перевозившая пассажиров между городами. 9. Французский фило-
соф, просветитель. Развил идею Дж. Локка о разделений властей.
10. Многотомное издание, в котором под руководством Д. Дидро и
Ж. Д'Аламбера были собраны и систематизированы разнообразные
знания. 11. Орган в городах, отвечавший за поддержание порядка.
12. Рост городов и городского населения.
По вертикали: 1. Философы эпохи Просвещения
Предмет: Математика, автор: Виктория14042004