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

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

юлияиванова1

23.08.2021 04:47

написать Актуальность проекта по информатике по теме Сборка персонального компьютера...

lfifа

12.06.2021 22:11

Программа MATCAD 1.Привести СЛАУ к виду, пригодному для итераций. 2. Полученную СЛАУ привести к нормальному виду. 3. Проверить выполнение условий сходимости итерационного...

ivan497

02.11.2022 06:47

7. Элементами множеств А, Р и Q являются натуральные числа, причём Р = {2, 4, 6, 8, 10, 12} и Q = {2, б, 12, 18, 24}. Известно, что выражение (x принадлежит Q) импликация...

angalena

03.03.2022 00:18

Главной причиной крестьянской войны под предводительством Е. Пугачева стало: Усиление власти и произвола помещиков над крестьянами Неудачи во внешней политике Династический...

ТаяDuda2133

04.12.2021 01:29

Информатика. Сделать задание 3....

Фарида120107

08.06.2021 08:54

Для закрытия окна приложения можно использовать комбинацию клавиш: а) ctrl+s б) ctrl+o c)alt+f4 d)alt+ tab...

sofiyaabramovasss

08.06.2021 08:54

Составить в программе pascal. для приготовления квашеной капусты на 10 кг капусты берут 225 г соли, 350 г моркови, 200 г клюквы, 4 г лаврового листа. сколько соли, моркови,...

код127

27.12.2020 23:49

Кто шарит в информатике,! как это делать на компьютере? напишите !...

SashaV2003

04.08.2020 17:27

Кто шарит в информатике,! как это делать на компьютере? напишите !...

alicekuznetsova

01.05.2020 07:37

Даны 100 вещественных чисел. выписать только отрицательные числа (-100..100)...

Ответ:

willzymustdie

10.09.2020 10:22

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

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

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

Ответ:

Coolboy1213

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

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

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