Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kresofbro
30.08.2020 16:49 •
Информатика
Лёгкая по паскалю! , ! написать программу которая удаляет все точки і запятые из строки s.
Показать ответ
Ответ:
natali1712
04.10.2020 17:59
Решение для одного-двух разных удаляемых символов
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
s:=s.Replace('.','').Replace(',','');
s.Println
end.
Пример
> Раз, два, три, четыре, пять. Вышел зайчик погулять.
Раз два три четыре пять Вышел зайчик погулять
Решение, когда разных удаляемых символов может быть много
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
s:=s.Where(с->not(с in [',','.'])).JoinIntoString;
s.Println
end.
0,0
(0 оценок)
Ответ:
yroslav120206
04.10.2020 17:59
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
НадеждаАрико
27.06.2020 03:05
Проанализируй опиши какое движение выполняет робот на рисунке?...
Ответит7275
27.05.2022 09:27
Это не правильный вопрос...
NeZoXshock
06.03.2020 05:53
Логическая функция F задаётся выражением: ((a∧b)∨(b∧c))≡((d→a)∨(b∧c ̄)) Составьте таблицу истинности. В качестве ответа введите сумму значений a, при которых F=0...
scrubble
11.09.2021 08:26
Главные особенности аппаратного и пользовательского интерфейса?...
Koley112
19.12.2022 19:39
Для какого из указанных значений числа Х истинно выражение (X 1) (X 2) & (X≠3)? 1) 1 .2) 2.3) 3.4) 4...
pnasta434
08.05.2022 17:17
1. Что такое шифрование информации? 2. Что относится к текстовой информации? 3. Что означает дешифрование? 4. Какие существуют методы шифрования текстовых сообщений?...
alex2007serg
12.01.2023 10:31
Доказать справедливость формулы сокращённого умножения в паскале (a-b)^2=a^2-2ab+b^2Пример окна вывода:...
SHEVENIST
13.01.2020 18:04
Построить таблицы истинности для следующих высказываний: (A+B)*C A*B*C не A*B*C неA+B A+B*неС...
китии2
23.07.2020 06:30
Рассчитайте объем жесткого диска, если количество цилиндров С = 1024+n, головок Н = 16+n, секторов на дорожке S = 17+n, размер сектора В = 512+n В. Формула Объем НЖМД: V...
рощумникиви
27.02.2020 05:45
Почему это пишет? [command]: btcprice Ignoring exception in on_message Traceback (most recent call last)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
s:=s.Replace('.','').Replace(',','');
s.Println
end.
Пример
> Раз, два, три, четыре, пять. Вышел зайчик погулять.
Раз два три четыре пять Вышел зайчик погулять
Решение, когда разных удаляемых символов может быть много
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
s:=s.Where(с->not(с in [',','.'])).JoinIntoString;
s.Println
end.
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.