Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
irinastepanova6
27.01.2023 03:52 •
Информатика
Лёгкая по паскалю! , ! написать программу которая удаляет все точки і запятые из строки s.
Показать ответ
Ответ:
kroylayshic
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 оценок)
Ответ:
seregatarlykov
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 оценок)
Популярные вопросы: Информатика
Прив26789
02.03.2022 14:49
класс Выполните данный ниже алгоритм: Исходные числа 7, 10 Алгоритм: 1. Обозначим первое число А, а второе В 2. Заменить А на А + В 3. Заменить В на число 15 4. Заменить...
evasauteeva
17.10.2020 04:51
Информационная технология представляет собой средство поиска сбора обработки и использования информации в методы поиска сбора обработки и использования информации...
ezek5
31.08.2021 12:49
. 15. Сравните возможности блокнота и текстового процессора OpenOffice.org Writer для...
rzaynullina
31.07.2021 12:53
с заданием по информатике1. Ситуация. Вы отправили в магазин деда-инженера. Он вместо батона, купил топор. Подумайте, почему так произошло и что мы не учли при постановке...
ralibaev
30.11.2020 07:15
Зона проведения какую функция выполняет?...
ifddhhx
30.11.2020 07:15
В10 -12 предложениях ответьте на данные вопросы аргументируйте свою точку зрения . в течение жизни мы иногда вольно или невольно обижаем кого-то или сами обижаемся...
Vi0002
30.11.2020 07:15
Какие есть холодные подземные воды?...
katalinatraist
30.11.2020 07:15
Подчеркните пословицу которая по-вашему подходит к сказке летучий корабль (- бог терпел и нам велел. -что посеешь то и пожнёшь. - дерево держишься корнями а человек...
светик480
30.11.2020 07:15
215*(368-274)+68*(127+128) по дейсвиям. если можно фоткай...
Anna124212
30.11.2020 07:15
На каких растениях есть механическая ткань?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.