Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
IamPrincess5
04.07.2022 23:21 •
Информатика
Люди добрые,)дана строка.если она начинается на 'abc',то заменить их на 'www',иначе добавить в конец строки 'zzz'. на паскале.заранее )
Показать ответ
Ответ:
lolii0ikolik
05.10.2020 18:11
Var S:string;
Begin
WriteLn('Введите строку:');
ReadLn(S);
if Length(S)>=3 then
if (S[1] = 'a')and(S[2] = 'b')and(S[3] = 'c') then
Begin
S[1]:='w';
S[2]:='w';
S[3]:='w'
End
else S:=S+'zzz'
else S:=S+'zzz';
WriteLn(S)
End.
0,0
(0 оценок)
Ответ:
TipsSpeed
05.10.2020 18:11
Var s: string;
begin
read(s);
if copy(s, 1, 3) = 'abc' then
s := 'www' + copy(s, 4, length(s) - 3)
else
s := s + 'zzz';
write(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
кристина2161
08.12.2021 06:58
На экране дисплея необходимо отображать 262144 различных цвета.вычислить необходимый обьем одной страницы видеопамяти при разрешающей дисплея 1024х768....
veraoka11
19.08.2020 21:31
Выразите в килобайтах: 1) 1024 байта 2) 2сверху10 байтов ( как 2 в квадрате только сверху 10) 3) 2 сверху13 байтов ( тоже самое) 4) 2сверху16 байтов ( тоже самое ) 5)...
dashameluhova95
19.08.2020 21:31
Девочка читает письмо подруги 1) хранение 2) передача 3) получение 4) обработка...
landeshforever
10.01.2022 09:42
Редактирование абзацев текста 1) хранение 2) передача 3) получение 4) обработка...
elenafilatova11
10.03.2021 14:31
5. Какой цвет модели RGB будет получен при следующих параметрах 8-мицветной палитры?Красный Зелёный Синийа) пурпурный; б) голубой; в) зелёный; г) жёлтый1о16 Pберите пелетитерфейсо...
kirrilkyplenow
03.05.2022 14:45
Используя правила сокращенное применение действий в программе определите результат программы....
sofiavasulyuk
09.08.2021 03:17
Решите ребус решить ребус очень надо...
svredinova98
14.07.2022 12:21
Опишите и сравните режимы дизайнера и блоки ...
lera556556
10.08.2020 23:32
Установи соответствие между арифметическими операциями и их назначениями....
ruslana80205
16.12.2022 10:38
Запишите определения.print ()...input ()......
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
WriteLn('Введите строку:');
ReadLn(S);
if Length(S)>=3 then
if (S[1] = 'a')and(S[2] = 'b')and(S[3] = 'c') then
Begin
S[1]:='w';
S[2]:='w';
S[3]:='w'
End
else S:=S+'zzz'
else S:=S+'zzz';
WriteLn(S)
End.
begin
read(s);
if copy(s, 1, 3) = 'abc' then
s := 'www' + copy(s, 4, length(s) - 3)
else
s := s + 'zzz';
write(s);
end.