Каждое слово текста преобразовать таким образом, чтобы оно читалось слева направо

@BoBaH26 · Регистрация: 02.12.2010

Студворк — интернет-сервис помощи студентам

Каждое слово текста преобразовать таким образом, чтобы оно читалось слева направо.

Добавлено через 1 час 20 минут
Помогите

@STGE · 18.12.2010, 03:37

Может быть вы имели ввиду справа налево ?
Если да, то вот моё решение:

Pascal

uses crt;
var s1, s2, s: string;
    i, j: byte;
begin
 clrscr;
 writeln ('vvedite stroku: ');
 readln (s1);
 for i:=1 to length (s1)+1 do
  if (s1[i]=' ') or (i>length(s1)) then
   begin
    for j:=length (s) downto 1 do
     s2:=s2+s[j];
    s2:=s2+' ';
    s:='';
   end
  else s:=s+s1[i];
 writeln;
 writeln ('resultat: ');
 writeln (s2);
end.

@BoBaH26 · 18.12.2010, 12:56 **[ТС]**

Ну у меня в условии именно так написано, но все равно спасибо))

Добавлено через 18 минут
А ну да.. Может быть и так.. Просто у нас даже в лекциях ошибки, многие проги из лекций не работают, не говоря уже о лабораторных. Спасибо большое

@BoBaH26 30 / 30 / 5 Регистрация: 02.12.2010 Сообщений: 255
		1
	Каждое слово текста преобразовать таким образом, чтобы оно читалось слева направо 17.12.2010, 21:38. Показов 1852. Ответов 2 Метки нет (Все метки) Каждое слово текста преобразовать таким образом, чтобы оно читалось слева направо. Добавлено через 1 час 20 минут Помогите 0

@BoBaH26 30 / 30 / 5 Регистрация: 02.12.2010 Сообщений: 255
	18.12.2010, 12:56 [ТС]	3
	Ну у меня в условии именно так написано, но все равно спасибо)) Добавлено через 18 минут А ну да.. Может быть и так.. Просто у нас даже в лекциях ошибки, многие проги из лекций не работают, не говоря уже о лабораторных. Спасибо большое 0

Опции темы

Каждое слово текста преобразовать таким образом, чтобы оно читалось слева направо

Решение