Question

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

Answer 1

б)
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.