Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
холера673
12.12.2021 02:14 •
Информатика
Дано предложение. поменять его первое и последнее слова. pascal
Показать ответ
Ответ:
Lizalalaz305
10.09.2020 10:22
Вот решение вашей задачи
0,0
(0 оценок)
Ответ:
anjelikakotiv
10.09.2020 10:22
Var
s, s1, sn: string;
i, n, p1, p2: integer;
begin
Readln(s);
p1 := Pos(' ', s) - 1;
n := Length(s);
i := n;
while s[i] <> ' ' do i := i - 1;
p2 := i + 1;
s1 := Copy(s, 1, p1);
sn := Copy(s, p2, n + 1 - p2);
s := sn + Copy(s, p1 + 1, p2 - p1 - 1) + s1;
Writeln(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
oleg34643
22.06.2021 19:19
Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями вида p /q (где р — целое число, q — натуральное число). вариант 1 в раздел...
seletkovaolya
11.12.2022 02:52
Определи вид скобок, который Используется для создания гиперссылки на автора или источник, из которого заимствован фрагмент текста. УМОЛЯЮЮЮМНЕ НУЖНО ...
Sunlight11
28.05.2023 02:06
Задачи нужно решить по языку программирования Python : Найти площадь прямоугольного треугольника,у которого один из катетов равен 3 см,а гипотенуза 5 см.ВТОРАЯ...
MaxHelpMelol
10.10.2020 04:02
1. Используя законы алгебры логики, упростите следующие логические формулы. 2. Упростите следующие переключательные схемы...
ANADTYEE
15.09.2022 21:00
с информатикой, все на языке программирования python 1) Среди 3-х значных чисел найдите числа у которых встречается в записи два раза цифра 5. Напечатайте эти числа....
lenababkina200
01.07.2022 15:40
Определить информа обем фрвгмента из 25 символов каждый символ 2 ьайта...
Павлик8089
26.10.2022 20:33
Чему будет равно значение, вычисленное по формуле -или(а1 10; а1 15), если в клетке а1 находится число 27?...
smolinnlive
26.10.2022 20:33
Дано целое двузначное число x . запишите команды, позволяющие получить первую и последнюю цифры числа...
Dianochka2346587
03.04.2020 12:31
После преобразования растрового графического файла его объем уменьшился в 2 раза. сколько цветов было в палитре первоначально, если после преобразования было получено...
oles2014
20.03.2020 07:29
Запишите формулы по правилам excel : a) c³+a³+b³ б)-b+в корне b²+6ac 4a...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s, s1, sn: string;
i, n, p1, p2: integer;
begin
Readln(s);
p1 := Pos(' ', s) - 1;
n := Length(s);
i := n;
while s[i] <> ' ' do i := i - 1;
p2 := i + 1;
s1 := Copy(s, 1, p1);
sn := Copy(s, p2, n + 1 - p2);
s := sn + Copy(s, p1 + 1, p2 - p1 - 1) + s1;
Writeln(s)
end.