Отредактировать предложение, удаляя из него лишние пробелы, поменять местами в строке первое и последнее

@dioris · Регистрация: 23.11.2011

прошу помощи с двумя заданиями:
1.Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пропуску между словами. Предложение заканчивается точкой.
2.Поменять местами в строке первое и последнее слова. Считать, что слова отделены друг от друга одним пробелом.

Добавлено через 28 минут
ответьте пожайлуста

@КонецСвета · 13.12.2011, 18:10

Сообщение от dioris

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

Pascal

uses crt;
var s,sn: string;
    i: integer;
begin
write('s=');
readln(s);
if s[1]<>' ' then sn:=s[1] else sn:='';
for i:=2 to length(s) do
    if (s[i]=' ') and (s[i-1]=' ') then
       sn:=sn else
       sn:=sn+s[i];
write('s=',sn);
end.

@dioris -19 / 0 / 0 Регистрация: 23.11.2011 Сообщений: 82
		1
	Отредактировать предложение, удаляя из него лишние пробелы, поменять местами в строке первое и последнее 13.12.2011, 18:06. Просмотров 1239. Ответов 1 Метки нет (Все метки) прошу помощи с двумя заданиями: 1.Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пропуску между словами. Предложение заканчивается точкой. 2.Поменять местами в строке первое и последнее слова. Считать, что слова отделены друг от друга одним пробелом. Добавлено через 28 минут ответьте пожайлуста 0

Опции темы

Отредактировать предложение, удаляя из него лишние пробелы, поменять местами в строке первое и последнее

Решение