Задачи в Pascal ABC.

а) Подсчитать количество пар чисел '23', '45' по отдельности.

б) Заменить каждый символ '; ' на пару символов '/'.

Question

Информатика

Арсентьич

20 июня, 18:46

Задачи в Pascal ABC.

а) Подсчитать количество пар чисел '23', '45' по отдельности.

б) Заменить каждый символ '; ' на пару символов '/'.

+1

Ответы (1)

Знаете ответ на вопрос?

Борюся · 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.

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

Задачи в Pascal ABC.

а) Подсчитать количество пар чисел '23', '45' по отдельности.

б) Заменить каждый символ '; ' на пару символов '/'.