Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
26.05.2013, 00:12 0

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

26.05.2013, 00:12. Просмотров 1318. Ответов 2
Метки (Все метки)

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

Решение

если слова разделены пробелами
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var s,sn: string;
begin
write('s='); readln(s);
s:=s+' '; sn:='';
while pos(' ',s)<>0 do
      begin
      sn:=copy(s,1,pos(' ',s))+sn;
      delete(s,1,pos(' ',s));
      end;
writeln('s=',sn);
end.


Вернуться к обсуждению:
Переставить в данном предложении все слова в обратном порядке
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2013, 00:12

Переставить символы строки в обратном порядке
помогите написать программу: Переставить символы строки в обратном порядке

Переставить слова в каждом предложении в обратном порядке
function perest(pred:string):string; var mas:array of string; r,k:integer;...

Обработка текстового файла. Переставить слова в каждом предложении в обратном порядке и записать их в новый файл
Здравствуйте, никак не получается написать здачу - суть такова: Дан файл с...

0
Другие темы раздела
Pascal ABC Составить программу, определяющую, можно ли в данный параллелепипед поместить шар радиусом R http://www.cyberforum.ru/pascalabc/thread878560.html
Имеется параллелепипед с размерами A, B, C.Составить программу, определяющую, можно ли в этот параллелепипед поместить шар радиусом R. Значения A, B, C, R задайте самостоятельно. Учтите, что эти...
Pascal ABC Обработать матрицу, элементами которой являются случайные значения функци Помогите!!!!! Обработать матрицу, элементами которой являются случайные значения функции f(x)=x/13; x . Отсортировать по убыванию элементы главной диагонали матрицы S(10,10). Если элемент главной... http://www.cyberforum.ru/pascalabc/thread878528.html
Pascal ABC Используя графические средства языка Турбо Паскаль на одной координатной сетке построить графики функций: f1(x)=(x-3)/(x2+2), f2(x)= , f3(x)= 5f2-3f1
Используя графические средства языка Турбо Паскаль на одной координатной сетке построить графики функций: f1(x)=(x-3)/(x2+2), f2(x)= , f3(x)= 5f2-3f1, в диапазоне изменения аргумента x .
Обработать матрицу, элементами которой являются случайные значения функции f(x)=ex∙sin(x) Pascal ABC
Обработать матрицу, элементами которой являются случайные значения функции f(x)=ex∙sin(x); x . Дана матрица A (13, 10). Создать новую матрицу B (10, 13), поменяв местами строки и столбцы.
Pascal ABC программа,используя исходные данные,записанные во внешнем текстовом файле,выполняет следующие действия http://www.cyberforum.ru/pascalabc/thread878482.html
программа,используя исходные данные,записанные во внешнем текстовом файле,выполняет следующие действия: выводит на экран графические объекты двух типом. графические объекты должны быть созданы...
Pascal ABC Нахождение сумму последних цифр числа n Здравствуйте! Помогите пожалуйста еще с этим: Даны натуральные числа m и n Составьте программу которая вычисляет сумму последних m цифр n. подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru