Const n=25; var s:array[1..n] of char; i:integer; begin writeln('Введите ',n,' символов:'); for i:=1 to n do read(s[i]); for i:=1 to n do if s[i]='!' then s[i]:='.'; for i:=1 to n do write(s[i]); writeln; end.
Пример: Введите 25 символов: Ура!!! Сегодня праздник! Ура... Сегодня праздник.
Answers & Comments
Verified answer
Const n=25;var s:array[1..n] of char;
i:integer;
begin
writeln('Введите ',n,' символов:');
for i:=1 to n do read(s[i]);
for i:=1 to n do
if s[i]='!' then s[i]:='.';
for i:=1 to n do write(s[i]);
writeln;
end.
Пример:
Введите 25 символов:
Ура!!! Сегодня праздник!
Ура... Сегодня праздник.