Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kotkat2014
15.04.2022 10:49 •
Информатика
Склавиатуры вводится строка. заменить в ней слово dog на слово cat. pascal abc
Показать ответ
Ответ:
НадеждаАрико
06.10.2020 02:40
Var
S:string;
i,k:integer;
Begin
k:=0;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S)-2 do
if S[i]='d' then
if S[i+1]='o' then
if S[i+2]='g' then
Begin
S[i]:='c';
S[i+1]:='a';
S[i+2]:='t';
End;
WriteLn('Новая строка: ',S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Sofi200011777
11.02.2022 00:35
Задана матрица размером . Получить массив B, присвоив его k-му элементу значение 1, если элементы k-ой строки матрицы упорядочены по убыванию, и значение 0 в противном...
CISA9999
19.03.2021 06:47
составить программу: Составить программу нахождения среднего арифметического значения всех делителей заданного натурального числа N, кратных 3. Вывести 0, если нет делителей....
vityabro13
22.01.2021 00:11
Слово в памяти компьютера выглядит следующим образом:010000010100100101001101С таблицы ASCII определи, что это за слово.AIM girl fox MAD...
vasinmihailov
22.05.2022 23:38
Синформатикой! 37 разработать алгоритм определения отношения (принадлежит или не принадлежит) точки пространства, задаваемой координатами, шару с центром в начале координат...
Smaik111
31.03.2023 16:46
По информатике перевести число 549 из десятичной системы счисления в двоичную, переведите в биты 1/4 к байта, переведите двоичные коды в десятичные 101000,11001,10100,11110,1010,...
leg3
19.11.2020 07:33
Нужно расставить 4 введенных числа числа в порядке возрастания (си)...
valeracat186
25.05.2022 11:08
1)y =cos3x. 2)y -8y +16y=0 rewit def uravneniya. zhiraffe27...
AlinaNeizvestnaya20
25.05.2022 11:08
Расположите следующие события произошедшие в результате революционных событий 1917-1918 г в хронологической последовательности. а) россия вышла из мировой войны б)принят...
Master2111
25.05.2022 11:08
Уровнять. фосфат аммония+гидроксид калия...
crasnowdim2018
25.05.2022 11:08
Какая начальная форма местоимения вы?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
S:string;
i,k:integer;
Begin
k:=0;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S)-2 do
if S[i]='d' then
if S[i+1]='o' then
if S[i+2]='g' then
Begin
S[i]:='c';
S[i+1]:='a';
S[i+2]:='t';
End;
WriteLn('Новая строка: ',S);
End.