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

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

Ответ:

йщз

10.09.2020 10:22

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

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

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

Ответ:

nastyazhovnirenko

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

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

нан08

29.02.2020 05:56

Всоревнованиях по шахматам толя, ира и костя заняли три первых места. толя не занял ни первое, ни второе место. ира заняла второе место. какое место занял толя?...

сснсогаоаг

29.02.2020 05:56

Составьте для чертежника алгоритм рисования равнобедренного треугольника, если известны координаты концов отрезка, являющегося его высотой (4, 1) и (4, 6), а также координаты...

corvet42

29.02.2020 05:56

Нужно в паскале написать программу , которая сложит все натуральные числа в диапазене от a до b. (например от 23 до 74)...

Владrar

25.02.2022 05:31

Программа паскаль. составить программу, которая запрашивает у пользователя целое число, действительное число, произвольный символ строку, а затем все выводит в одной строчке....

aarmen020

20.03.2023 11:18

Для какого из чисел ложно высказывание: не (число 100) или (число чётное)? 1) 1000 2) 100 3) 55 4) 2...

Татьяна201712

25.02.2022 05:31

Записать по правилам языка паскаль следующее утверждение x2-3√x4-25√x : 3,6-x3...

zzubaidulloieva

25.02.2022 05:31

Какие перемещения по большому текстовому документу вам известны...

motya10432

25.02.2022 05:31

Каковы основные недостатки растрового и векторного изображения? каковы основные достоинства растрового и векторного изображения? за хороший ответ 13 пунктов...

Незнайка2333

06.02.2022 23:53

Обчислить массиви a) з трьох дійсних чисел б) з десяти символів...

07072002kl

07.12.2020 14:52

Явас умоляю решить эти 5 . моя годовая ! 1)чему равно значение переменной s3? s1 : = ’на дворе трава, ’; s2: =‘на траве дрова’; s: =concat(s1,s2); s3: =s1+s2; 2)чему равно значение...

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

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