Дана строка.

@Darayya · Регистрация: 17.02.2012

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

Дана строка.Вывести все слова.

@klast · 26.04.2012, 22:55

Pascal

var
  s, a: string;
  i: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] <> ' ' then a := a + s[i];
    if (s[i] = ' ') or (i = length(s)) then
    begin
      writeln(a);
      a := '';
    end;
  end;
end.

@КонецСвета · 26.04.2012, 23:00

спасибо за

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

(i = length(s))

@Darayya 0 / 0 / 0 Регистрация: 17.02.2012 Сообщений: 13
		1
	Дана строка. 26.04.2012, 22:49. Показов 968. Ответов 2 Метки нет (Все метки) Дана строка.Вывести все слова. 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	26.04.2012, 23:00	3
	спасибо за Сообщение от klast (i = length(s)) 0

Дана строка.

Решение