Регистрация
Войти
Стать экспертом Правила
Информатика

ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ! ПОМОГИТЕ, ПОЖАЛУЙСТА! Написать программу которая удаляет все точки і запятые из строки s.

ОТВЕТЫ
Решение для одного-двух разных удаляемых символов

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString(gt;);
  s:=s.Replace(.,).Replace(,,);
  s.Println
end.

Пример
gt; Раз, два, три, четыре, пять. Вышел зайчик погулять.
Раз два три четыре пять Вышел зайчик погулять

Решение, когда разных удаляемых символов может быть много

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString(gt;);
  s:=s.Where(с-gt;not(с in [,,.])).JoinIntoString;
  s.Println
end.
Pasca
program eazy;
var s:string;
i:integer;
begin
writeln(Vvedite tekst);
readln(s);
for i:=length(s) downto 1 do
if (s[i]= ) or(s[i]=,) or (s[i]=.) then
delete(s,i,1) ;
writeln(s);
end.
96
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам