Предмет: Информатика,
автор: verrronnnn
ИНФОРМАТИКА ПОЖАЛУЙСТА
составьте программу которая заменяет все пробелы заданными символами
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: География,
автор: Аноним
Предмет: Математика,
автор: gulaevaelena1
Предмет: История,
автор: Аноним
Предмет: Биология,
автор: Ваня21
Предмет: Физика,
автор: Anastasiya19