Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Попадет ли точка с заданными координатами в данную область https://www.cyberforum.ru/ turbo-pascal/ thread1053794.html
Составить алгоритм и написать программу, которая определяет, попадет ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат ра-боты программы вывести в виде...
Turbo Pascal Распечатайте анкетные данные студентов
фамилии которых начинаються с буквы<Б>,и даты их рождения
Turbo Pascal Нужно составить блок-схему к программе
Сам программирую неплохо, а вот в блок схемах ни фига не шарю... А блок схема нужна для зачёта >___< Вот код: Program RAZCHET1; uses crt; function f(x:real):real; begin f:=0.25*x*x*x+x-1.2502;...
Turbo Pascal Написать программу которая создает и выводит на экран одномерный массив А на 10 элементов, Ai = random (20) +2 Написать программу которая создает и выводит на экран одномерный массив А на 10 элементов, Ai = random (20) +2. Отсортировать массив по возрастанию. Найти наименьшую разницу между соседними... https://www.cyberforum.ru/ turbo-pascal/ thread1053760.html
Turbo Pascal Использование имени процедуры в качестве параметра другой процедуры https://www.cyberforum.ru/ turbo-pascal/ thread1053744.html
Составить программу по заданному условию. Первая часть условия является заданием на разработку процедуры для любой функции f или пары функций (f1, f2). Условие второй части задания предполагает...
Дана двухмерная матрица Turbo Pascal
Ну по скольку прочитав условия я нечего не понял решил спросить у знатаков как же это будет и что вообше нужно. Условие. Данна двухмерная матрица (двух мерный массив) порядка 10 ( 10 на 10 ). Нужно...
Turbo Pascal Найти максимальное из чисел, встречающихся в заданной матрице более одного раза
Найти максимальное из чисел, встречающихся в заданной матрице более одного раза.
Turbo Pascal Две точки задаются своими координатами. Определить, какая их них находится дальше Две точки задаются своими координатами. Определить, какая их них находится дальше от: начала координат; окружности заданного радиуса с центром в начале координат. https://www.cyberforum.ru/ turbo-pascal/ thread1053718.html
Turbo Pascal Разработать программу построения графиков распределения потенциала в резком p-n –переходе в кремнии при различных концентрациях примесей Na и Nd https://www.cyberforum.ru/ turbo-pascal/ thread1053707.html
Разработать программу построения графиков распределения потенциала в резком p-n –переходе в кремнии при различных концентрациях примесей Na и Nd.В материале n – типа распределение потенциала...
Turbo Pascal Составление программы матрица Помогите пожалуйста ! Составьте программу и создайте алгоритм к данной программе упорядочивающую по убыванию элементы каждого столбца матрицы С. Заполнение массива осуществить с клавиатуры. https://www.cyberforum.ru/ turbo-pascal/ thread1053688.html
26 / 26 / 39
Регистрация: 16.11.2013
Сообщений: 64
23.12.2013, 20:55 0

Поменять местами первое и последнее слово

23.12.2013, 20:55. Просмотров 1473. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var s,w1,w2:string;
i:byte;
begin
w1:=''; w2:='';
readln(s);
i:=1;
while s[i]<>' ' do
begin
w1:=w1+s[i];
inc(i);
end;
delete(s,1,length(w1));
i:=length(s);
while s[i]<>' ' do
begin
w2:=s[i]+w2;
dec(i);
end;
delete(s,i+1,length(w2));
writeln(w2+s+w1);
end.


Вернуться к обсуждению:
Поменять местами первое и последнее слово
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2013, 20:55

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Поменять местами первое и третье слово
Дано предложение. Поменять местами первое и третье слово. Определить их длину.

Переставить местами слово с минимальной длиной и последнее слово
Дана строка символов, содержащая не менее 6 слов разной длины. Переставить местами слово с...

Напечатать отдельными строками первое и последнее слово строки
4. Ввести с клавиатуры строку символов. Напечатать отдельными строками первое и последнее слово. ...

Распечатать самое длинное слово (последнее) и самое короткое слово (первое)
Распечатать самое длинное слово (последнее) и самое короткое слово (первое).

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.