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

@Stasia_lime · Регистрация: 21.01.2012

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

@Lada-21093i · 27.01.2012, 20:08

Настя могу скинуть немного другую
5.2 Задание 2
Дано предложение. Последнее слово поместить на первое место и определить количество слов в этом слове.

Программа:

Pascal

Uses CRT;
Var
s, z,st1,st2:string;
b, a,w,v,i,l,k:integer;
begin
Clrscr;
k:=0;
l:=0;
Writeln('программа по перестановке слов');
write('введите предложение: ');
read(s);
z: =s;
For i: =1 to length(s) do
If s[i] =' ' then k: =i;
V: =pos (' ', s);
st1:=copy(s, 1, v);
st2:=copy(s, k+1, length(s)-k);
Delete(s, k+1, length(s)-k);
Delete(s, 1, v-1);
Insert (st2, s, 1);
Insert (st1, s, length(s) +1);
Writeln(s);
readkey;
end.

РЕЗУЛЬТАТ РАБОТЫ.
программа по перестановке слов
введите предложение: мама мыла милу мылом
мылом мыла милу мама

@КонецСвета · 28.01.2012, 21:57

см здесь

@Stasia_lime 15 / 15 / 0 Регистрация: 21.01.2012 Сообщений: 51
		1
	Поменять местами первое и третье слово 27.01.2012, 20:00. Просмотров 840. Ответов 2 Метки нет (Все метки) Дано предложение. Поменять местами первое и третье слово. Определить их длину. 0

@КонецСвета Почетный модератор 7950 / 3921 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	28.01.2012, 21:57	3
	см здесь 1

Опции темы

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

Решение