Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Влад847385
12.01.2021 10:22 •
Другие предметы
Изменение порядка слов в строке (программа Паскаль)
Показать ответ
Ответ:
bolatzarina
16.04.2019 23:00
program REVERSE;
var OLD_LINE, NEW_LINE: string [50];
PROBEL: integer; WORD: string [50];
begin
NEW_LINE := ''; readln (OLD_LINE);
OLD_LINE := concat (OLD_LINE,' ');
while OLD_LINE <> '' do
begin
PROBEL := pos (' ', OLD_LINE);
word := copy (OLD_LINE, 1, PROBEL);
NEW_LINE := concat (WORD, NEW_LINE);
Delete (OLD_LINE, 1, PROBEL);
end;
writeln (NEW_LINE)
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
Bagdan112
07.10.2021 02:04
Зарабатывают ли люди на тик токе...
aigerka19
14.11.2020 21:47
нобай бойынша кию адистери колданылатын командаларды атаныз Кима жане тілік аныктамасы олардын турлерин атаныз ГРАФИКА ЖОБАЛАУ...
ДвоечникТочно
06.09.2021 09:33
Напишите про механику вспышки новой звезды...
MrReizer
15.01.2021 00:32
Ребёнку 13 лет работаю на заводе и пришло приказ что с 1 января должны работать в ночные смены в обезаловку могу ли я откозатся и есть ли какой нибудь закон? ...
Арти1234567890
04.08.2022 14:06
Yilboboning sovğasi ertagini oqib mazmunini yozing...
ASLiza1992
12.02.2023 01:40
1.Задание: определить какие из высказываний относятся к релятивистским, к нигилистическим 1) Все люди друг на друга похожи как телом, так и душой; у каждого из нас мозг, селезенка,...
adadad2
28.05.2023 01:24
Почему астрономия всеволновая?...
elizaveta66
29.04.2023 01:03
Петро І: * a прорубав вікно в Європу б проклав тунель в Європу в відчинив двері в Європу г закрив кордон у Європу...
Lizalalaz305
20.05.2020 18:16
Открытия будущего Определи верные и неверные утверждения. На сегодняшний день бурно развивается индустрия защиты информации – дизайнерская криптография. Сейчас для защиты информации...
Школьник5гокласса2
09.08.2022 21:27
Галактика имеет красное смещение z=0,2.Определиье расстояние до нее кр...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var OLD_LINE, NEW_LINE: string [50];
PROBEL: integer; WORD: string [50];
begin
NEW_LINE := ''; readln (OLD_LINE);
OLD_LINE := concat (OLD_LINE,' ');
while OLD_LINE <> '' do
begin
PROBEL := pos (' ', OLD_LINE);
word := copy (OLD_LINE, 1, PROBEL);
NEW_LINE := concat (WORD, NEW_LINE);
Delete (OLD_LINE, 1, PROBEL);
end;
writeln (NEW_LINE)
end.