Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
снежана195
17.06.2021 19:03 •
Информатика
Нахождение самого длинного слова в тексте. найти самое длинное слово в тексте. если таких слов несколько, то взять последнее. написать на паскале
Показать ответ
Ответ:
123451528
07.07.2020 19:16
var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
IsabellaSwan2017
24.08.2020 19:54
Составьте текст из геометрических фигур 5предложений Основной текст:кегль 12pt,шрифт Arial,цвет черный;Абзац;текст выровнен по ширине,межстрочный интервал 1.0Сноски:кегль 10pt,шрифт...
wanecow01
18.05.2022 08:05
Python.Submission ID (skip this field) * ⚠️ DO NOT EDIT this field or your time will not be recorded....
Милки1319
17.08.2021 12:33
Ввиде графа в виде графа систему, состоящую из 4-х одноклассников, между которыми существуют следующие связи: дружат: саша и маша, саша и даша, маша и гриша, гриша и саша.,ответь...
veronekareshet
17.08.2021 12:33
Написать программу для нахождения произведения элементов массива...
ksu010157sha
17.08.2021 12:33
Посчитать каких букв больше а или о...
ayiina264
17.08.2021 12:33
Найти сумму 10 членов арифметической прогрессии a,a+d,a+ а - первый член прогрессии,d - постоянное слагаемое, разность прогрессии.паскаль...
mmmaaassshx
23.10.2020 06:49
Надо. 3 .ответьте на следующие вопросы.1. чем различаются текстовые редакторы и текстовые процессоры? 2. какие текстовые редакторы вы знаете? 3. какие текстовые процессоры вы знаете?...
0224n
13.01.2022 18:52
Составить таблицы истинности для логических выражений ОЧЕНЬ...
4ev43yi3
23.11.2021 21:33
2 the place where you pay in a shop (8)3 The shop assistant gives you this piece of paper whenyou buy something, (7)4 keep money until you have enough to buy something(4,2)5 something...
Инка1999
20.05.2023 07:57
1) Как подготовилась Австро-Венгрия к войне ? 2) Как подготовилась Австро-Венгрия к Первой мировой войне?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
end.