Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
mynee
17.02.2023 16:12 •
Информатика
Pascal abc. составьте программу, которая позволяет вывести на экран первое слово
строки, состоящей из двух слов, разделенных пробелом. строка вводится
с клавиатуры.
Ответ:
ntisdeil2010
11.10.2020 03:31
var
k: integer;
s: string[50];
begin
Readln(s);
k := Pos(' ', s);
Writeln(Copy(s, 1, k - 1))
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vova50915091
22.04.2023 20:52
1. найти сумму первых 10 чисел, кратных 7; 2. вывести на экран 11 первых чисел кратных 5; 3. составить программу рисования 18 прямоугольников синего цвета, координаты которых...
senan53
22.04.2023 20:52
30 ! составьте программу ,которая формирует массив ,содержащий 12 случайных вещественных чисел ,принадлежащих промежутку от [-10; 30] , и подсчитывает произведение всех...
ldudin
22.04.2023 20:52
Даны два одномерных массива. написать функцию, которая определит, среднее арифметическое значение какого массива больше...
nasa21p08m1i
21.04.2021 23:04
Передача данных через adsl-соединение равна 128000 бит /с. сколько времени ( в секундах ) займет передача файла объемом 500 кбайт по этому каналу ?...
k03a12345
02.10.2022 17:04
1. чему будет равно значение переменной n после выполнения програмы: n = 6; while ( n 7 ) { n = n - 1; } 2. сколько раз будет выведено на экран слово после выполнения программы:...
guast1
17.04.2023 11:16
1. заполнить массив из 10 целых элементов случайными числами из диапазона от -15 до 15 обеспечить вывод исходного массива на экран. подсчитать сумму положительных элементов...
Алимакдр
16.03.2022 10:47
Если досье на преступников объёмом 18 страниц (32 строки по 54 символа в каждой, 1 символ занимает 16 бит), каков объём всего досье вбайтах?...
геометрия64
07.05.2023 23:57
Заполните таблицу истинности логического выражения : A¬v(над v) B...
Полина9111111
27.05.2022 16:27
Запишите не одного устройств ввода информации для: ввода графической информации —ввода звуковой информации —ввода числовой информации —...
Bibi123456
15.08.2021 14:42
Даны три варианта программных кодов. Выберите вариант, в котором генерируется диапазон случайных чисел от −10 до 10. ответ введите строчной буквой без дополнительных символов....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
k: integer;
s: string[50];
begin
Readln(s);
k := Pos(' ', s);
Writeln(Copy(s, 1, k - 1))
end.