Задачи в Pascal ABC. а) Подсчитать количество пар чисел '23', '45' по отдельности. б) Заменить каждый символ ';' на пару символов '/'.
Задачи в 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.
Не нашли ответ?
Похожие вопросы