Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составьте программу по информатике которая удаляет в строке s все пробелы, и заменяет их на точки.

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1088
var
  s:string;
  i,p:integer;
begin
  Write(Введите строку: ); ReadLn(s);
  for i:=1 to Length(s) do
    if s[i]= then s[i]:=.;
  WriteLn(Результат:      ,s)
end.
 
Тестовое решение:
Введите строку: Это дело такое - тестировать   программы   !
Результат:      Это.дело.такое.-.тестировать...программы...!