ПАСКАЛЬ 10 КЛАСС Имеется текст,состоящий из русских слов,разделенных между собой...

Question

ПАСКАЛЬ 10 КЛАСС
Имеется текст,состоящий из русских слов,разделенных между собой пробелом. Все буквы в тексте прописные.
а) Заменить в предложении символ пробел на символ *

Answer 1

Var s:string;
i:integer;
begin
 write('Введите текст: '); readln(s);
for i:=1 to length(s) do
if s[i] = ' ' then write('*') else write(s[i]);
end.