Войти Регистрация Спроси ai-bota

Дано предложение. поменять его первое и последнее слова. pascal

Показать ответ

Ответ:

arinaambrosova

10.09.2020 10:22

Вот решение вашей задачи
Дано предложение. поменять его первое и последнее слова. pascal

Дано предложение. поменять его первое и последнее слова. pascal

0,0(0 оценок)

Ответ:

УмныйЛёд

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 оценок)

Популярные вопросы: Информатика

volk007volk

03.01.2020 16:44

Ребят, только решите ! Задача. Дано два кола із загальним центром і радіусами R1 і R2 (R1 R2). Знайти площі цих кіл S1 і S2, а також площа S3 кільця, зовнішній радіус...

астра1603

16.12.2020 18:49

Составьте программу которая формирует массив их 15 случайных целых элементов, принадлежащих промежутку (34:87) выводит на экран все элементы в строку и находит их...

torivova2004

02.08.2020 23:51

У Вики, Иры и Светы телефоны разных марок: Apple, Samsung и Honor - и разных цветов: золотистый, серебристый и чёрный. Известно, что у Вики телефон не серебристый,...

Ашка1231

22.01.2022 18:56

Найди информационный объём (в битах) растрового изображения размером 45×45 пикселя, если известно, что используется палитра из 16 цветов....

Аккерман11

16.03.2023 08:35

Sketchup Make программасында шаршы жасау алгоритмін жазыңдар...

alievaaytan17

31.01.2023 06:41

Задание №5. В файле 1 задана стоимость товара с учетом изменений за каждый месяц одного квартала. В файле 2 дано количество проданных товаров за каждый месяц. В файле...

Маргольц

06.03.2023 08:26

Где сохраняют рисунки,сделанные на компьютере? Для чего выводят на печать созданные изображения?...

Кate1257

07.09.2020 00:12

Найди информационный объём (в битах) растрового изображения размером 56×56 пикселя, если известно, что используется палитра из 4 цветов....

AnnLondonFencing

02.03.2021 03:02

Упрости и запиши верный ответ. Логическое выражение: M&B∨M&B¯¯¯....

kaldyn007

07.11.2022 04:45

Найти сумму натуральных чисел, не превосходящих 100, в записи которых имеется цифра 3, но нет цифры 5. На Паскале...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку