Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Lik20372
19.02.2023 20:12 •
Информатика
Составить программу в паскале. заменить в тексте слово "sin" на слово "cos" и подсчитать количество замен.
Показать ответ
Ответ:
Nastiusha2801
26.07.2020 18:54
Var y,x: string;
i,k: integer;
begin
k=0;
read (x);
for i:=1 to length(x) do
begin
y:=copy(x, i,3);
If (y='sin') then begin
delete (x, i, 3);
insert ('cos', x, i);
k:=k+1;
end;
writeln (x);
writeln (k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dielela
09.01.2020 19:17
A:=9 b:=45 div a b=b*10 a:=b mod 4+3...
дашикмашикпык
02.08.2021 00:49
по программированию/информатике Выбрать из перечисленных ниже правильные варианты основных объектов СУБД Вопрос 1: Выберите один или несколько ответов: a. индексы данных, b....
123123324322221
04.08.2020 14:20
Сколько из чисел С, записанных в двоичной системе счисления, удовлетворяет неравенству 221(8) С 951(16)?1) 10010100(2); 2) 10010110(2); 3) 10010011(2); 4) 10001100(2)....
Sashakkkkkkk
23.05.2020 21:16
Скажите как нарисовать ромб в логомирах...
элина20072
22.06.2022 20:30
Проверочное слово к слову чертить? ? : 3 легкие вопросы для вас чтоб побольше обращайтесь...
neznaika1112222
03.03.2023 06:27
Перевести на казахский язык. семирамида у греков это ассирийская царица шаммурамат, жившая примерно в 800 году до нашей эры. после смерти мужа шамши-адада v, ей пришлось взять...
753BC
03.03.2023 06:27
Овосстании пугачева ,итоги,ход событий,...
napolskai24
03.03.2023 06:27
Парламент против короля ревалюцыя в аегдий...
aprishkom
03.03.2023 06:27
Составьте и запишите 5 предложений с числительными. выполните морфологический разбор одного числительного....
vasyav1337
03.03.2023 06:27
Ежедневно птицефабрика поставляет на продажу 10,7 млн. яиц. усовершенствовав технологию, фабрика увеличила поставку яиц на 13% . сколько яиц стала поставлять птицефабрика на...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k: integer;
begin
k=0;
read (x);
for i:=1 to length(x) do
begin
y:=copy(x, i,3);
If (y='sin') then begin
delete (x, i, 3);
insert ('cos', x, i);
k:=k+1;
end;
writeln (x);
writeln (k);
end.