решение задачи в паскале: дано предложение, все пробелы в нём заменить на *, а остальное заменить на -
Нужно менять саму строку, а не просто символы выводить
Ответы на вопрос
Ответил Аноним
0
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then s[i]:='*'
else s[i]:='-';
writeln(s);
readln;
end.
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then s[i]:='*'
else s[i]:='-';
writeln(s);
readln;
end.
Новые вопросы