Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
незнайка1166
07.05.2021 22:14 •
Информатика
Составить программу pascal: - склеить две строки ‘язык’ и ‘программирования’ - подсчитать длину получившейся строки - в строке ‘программирование’ выделить фрагмент ‘мир’ - строку ‘бушлат’ заменить на строку ‘шлак’
Показать ответ
Ответ:
Daniilsukhankin2014
04.10.2020 03:54
Var
s1,s2,s3,s4:string;
begin
s1:='язык';
s2:='программирования';
s3:='бушлат';
Write(s1,' + ',s2,' = ');
s4:=s1+s2;
Writeln(s4,' (длина равна ',Length(s4),')');
Writeln(Copy(s2,8,3));
Write(s3,' -> ');
s3:='шлак';
Writeln(s3)
end.
Результаты
язык + программирования = языкпрограммирования (длина равна 20)
мир
бушлат -> шлак
0,0
(0 оценок)
Популярные вопросы: Информатика
Emro
19.06.2022 00:20
Чим відрізняються навчальні проекти від інших проектів? 2.Для чого складають план проекту? 2.У яких формах може бути подано план проекту? 4.Що таке продукт?...
ruzvelt3000
02.08.2020 21:10
Е) нц для i от 1 до 2 S := 0 нц для j oт 2 до 3 нц для k oт 1 до 2 S := S+i+j+k кц кц кц распишите решение...
lollyslacker
05.11.2021 14:47
Найдите значение логического выражения (a + b)*(b + c) + a*c при a=1, b=0 и c=0....
lexanyreev
01.05.2022 02:19
Напишите программу в Задание 1 1. Создайте новый пустой список 2. Добавьте не менее 7 фруктов. 3. Отсортируйте список в обратном алфавитном порядке. 4. Распечатайте список...
dasha1832
23.02.2023 00:47
Без решений, просто ответ...
msekater97
24.08.2021 18:14
1. На основе расчетов (по необходимости) оцените по шкале оценки общего уровня рождаемости, смертности, естественного прироста идемографического старения демографические...
катя7354
07.03.2022 21:05
матем Задания - найди ошибки и реши верно . Подбери такое число чтоб получилось верное равенство...
герман136
24.12.2022 13:28
Задание 1: отметьте верные и неверные утверждения, если ответ неверный, то указать правильный ответ № Утверждение +/- Правильный ответ 1 Улус Чагатая распался на Мавераннахр...
анна2246
24.12.2022 13:28
390 Докажите, что выделенные местоимения указывают не на лица,принадлежность. Подберите синоним к слову полотна.их полотнах любовь к родной земле, её природе, её людямОкружающих...
sdddssssa
24.12.2022 13:28
Очень нужна с химией, не понимаю, как решить ,_,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s1,s2,s3,s4:string;
begin
s1:='язык';
s2:='программирования';
s3:='бушлат';
Write(s1,' + ',s2,' = ');
s4:=s1+s2;
Writeln(s4,' (длина равна ',Length(s4),')');
Writeln(Copy(s2,8,3));
Write(s3,' -> ');
s3:='шлак';
Writeln(s3)
end.
Результаты
язык + программирования = языкпрограммирования (длина равна 20)
мир
бушлат -> шлак