tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Кто понимает паскаль, обращаюсь
Кто понимает паскаль, обращаюсь к вам! нужна ваша ! составьте программу, которая выводит все символы до первого многоточия и программу, которая заменяет каждое многоточие точкой и каждый пробел точкой.
дара23
3 15.08.2019 09:30
1
Ответы
ekaterinaf79
09.08.2020 11:48
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
var p:=Pos('...',s);
if p>0 then Writeln(Copy(s,1,p-1))
end.
Пример
> Это такая... тестовая... строка
Это такая
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
Writeln(s.Replace('...','.').Replace(' ','.'))
end.
Пример
> Это такая... тестовая строка, надуманная...
Это.такая..тестовая.строка,.надуманная.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
autist1707
13.05.2021 20:14
,очень . Нужно написать HTML код про фильм любой .заранее ....
Artem636367
13.05.2021 20:13
АЛГОРИТМИ ТА ПРОГРАМИ ПРАКТИЧНА РОБОТА № 6«Проекти з вкладеними циклами та розгалуженнями»Увага! Під час роботи з комп ютером дотримуйтеся вимог безпекижиттєдіяльності...
venerkaasanova
14.09.2020 16:50
Деректерді ұзақ үақыт сактауға арналған қалай аталады ...
inkara8
14.09.2020 16:47
2. Сколько бит информации содержит сообщение объемом 64 Мб?...
Дарина37373
24.11.2020 15:01
Постройте в тетради таблицу истинности...
25000h
24.11.2020 15:01
На питоне решить данные задачи: #задача 1: # Сделать 30 точек которые случайным образом лежат на окружности центр которой находится в точке (5,5), с радиусом 3 и вывести...
lizasereda05
15.06.2019 10:40
Пословицы к сказке два брата толстого...
mudruivitya
31.03.2021 15:43
ів!До іть Тести з інформатики 11 клас, завдання на фото Це для тих, для кого фото нечітке Виберіть правильні відповіді: Яке з цих тверджень правильне? об’єднання абзаців...
fasefasefaceface
31.03.2021 15:44
Procedure PRINTBARS (B : INTEGER); Var i : INTEGER; Begin For i := 1 to B do write( - ) End; що отримємо в результаті використання процедури...
юлия1868
06.05.2020 15:21
пожайлустаНапишите программу, которая в последовательности натуральных чисел:а) определяет максимальное число, оканчивающееся на 5;б) считает количество четных чисел....
Популярные вопросы
Мини сочинение (5 предложений, 2 сложных, 3 простых) на осеннюю тему...
1
Какое из неравенств не является тождеством. 1) x+2x-3y=-3y+ 3x 2)-1...
3
Решите систему уравнений графическим ! 4x-2y=6 2x - 3y =5...
3
(x^2-121)(x^4-81)=0 решите уравнение...
3
Впервом бидоне было в 2,5 раза больше молока чем во втором. когда...
2
und jetzt ist unsere redegymnastik. у1, frage 1)-ob viele kinder im...
2
Іть скласти складне речення зі словом смартфон ....
1
Два угла треугольника равны 80 и 25 градусов. чему равен третий угол...
1
Внекоторой стране автомобильный номер длиной 7 символов составляется...
3
выберите признаки, которые были использованы а. л. лавуазье, в. деберейнером,...
1
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
var p:=Pos('...',s);
if p>0 then Writeln(Copy(s,1,p-1))
end.
Пример
> Это такая... тестовая... строка
Это такая
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
Writeln(s.Replace('...','.').Replace(' ','.'))
end.
Пример
> Это такая... тестовая строка, надуманная...
Это.такая..тестовая.строка,.надуманная.