Question

составьте программу которая заменяет все символы день на ночь в производном тексте введенном с клавиатуры​

Answer 1

Відповідь:

var

s:string;

b:char;

i,n:integer;

begin

writeln('Введите текст');

readln(s);

writeln('Введите символ');

readln(b);

n:=length(s);

for i:=1 to n do

if s[i]=' '  then

s[i]:=b;

writeln(S);

end.