Произвести замену символов в тексте - Turbo Pascal

Формулировка задачи:

Дан текст.Заменить в нем двумя символами введенными с клавиатуры,вычеслить количество замен и сумму кодов символов не пренадлежащей замене.Результат вывести на экран в 10-ой и 16-ой системах счисления.

Код к задаче: «Произвести замену символов в тексте - Turbo Pascal»

textual
Readln(ch1,ch2);
St:="Testing";
St[1]:=Ch1;
St[Length(St)]:=Ch2;
Writeln(St);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 3.692 из 5


СДЕЛАЙТЕ РЕПОСТ