Цитата:
Сообщение от Машуня
1.С клавиатуры вводится строка длиной N, 2<N<100. Заменить пробелы на ‘_’, а знаки препинания на пробелы. Результат вывести на экран.
|
Код:
VAR
i:INTEGER;
S:STRING;
BEGIN
WriteLn('Enter the string:');
ReadLn(S);
For i:=1 to Length(S) do
If S[i]=' ' then Write('_') else
If (S[i]='.') or (S[i]=',') or (S[i]=';') or (S[i]=':')
or (S[i]='-') or (S[i]='?') or (S[i]='!') then Write(' ')
else write (S[i]);
WriteLn;
ReadLn;
END.