Задачи в Pascal ABC.
а) Подсчитать количество пар чисел '23', '45' по отдельности.
б) Заменить каждый символ ';' на пару символов '/'.

б)uses crt; var s:string;  i,n:byte; begin clrscr; writeln('Введите строку, содержащую точку с запятой"); readln(s); n:=length(s);for i:=1 to n do if s[i]=';' then s[i]:='/'; writeln('Замена точек на /'); write(s); readln end.