Задача, зеркальное отображение

[Jamguranga]

Пожалуйста, помогите с задачей, я ввожу с клавиатуры предложение, а нужно вывести зеркально слова, которые имеют парное количество символов. У меня получается только считать слова со строки, подскажите как сделать? У меня есть идея параллельно считыванию слов поставить счётчик-массив, который будет считать кол-во символов, а потом просто сравнить значения этого массива, выводя только те слова, номер которых совпадает с номером счётчика, значение которого делится на 2 без остатка, как-то так

[Poma][a]

Тоесть предложение :

А мама мыла рамку

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

мама мыла

?

[Jamguranga]

да. именно так)

[hon]

Наработки в студию!

[ViktorR]

ВНИМАНИЕ!
Poma][a

Тоесть предложение :
Код:


А мама мыла рамку

Программулька же должна вывести :
Код:


мама мыла

?

Jamguranga

да. именно так)

Но ведь в условии:

нужно вывести зеркально слова, которые имеют парное количество символов

Т.о.программа должна вывести так:

амам алым

Вроде так ...

[Poma][a]

ViktoR, гениально! Я то, сижу решаю совершенно другую задачу... Я то думал берем Текст

Аб в г де

, переворачиваем

ед г в бA

смотрим : в 1 слове 2 буквы, после переворота тоже 2 => выводим, и так далее..
Откуда я взял эту задачу-для меня тайна.. Может это так праздники сказались?

парное количество символов

А это как? Тоесть кол-во символов четно?

[Андрей Коршов]

var S,S_new:string;
i :integer;
begin
write ('Введите слово') ;
readln (S);
s_new:=' ';
for i:=1to length (S) do
s_new:=S[i]+S_new;
writeln(S_new);
readln;
end;

[Poma][a]

Андрей, не то Вы написали.. Может освобожусь предложу свой вариант..

[Jamguranga]

для начала я пытался найти слова, в которых чётное кол-во символов, итак:

uses crt;
var
  s:string;
  a:array[1..200] of string;
  b:array[1..200] of string;
  i,count,n,max:integer;
Begin
 clrscr;
 read(s);
 count:=1;
 i:=1;
 n:=1;
         while (i<=length(s)) do
           begin
            if s[i]=' ' then
                begin
                 inc(count);
                 inc(i);

                    if (i-1) mod 2 = 0 then
                       begin
                          b[n]:=a[count];
                          max:=n;
                          inc(n);
                       end;
                       
                end;
       a[count]:=a[count]+s[i];
       inc(i);
 end;
 
 for n:=1 to max do
 writeln(b[n], ' ');


 readln
 end.

Но ничего не выводит... понять не могу почему, смотрел через дебаг, просто проходит 1 раз последний цикл и всё

[Poma][a]

Вот Вам решение "в лоб"

var
        s, word : string;
        i, j : Integer;

begin
        ReadLn (s);
        s := s + ' ';
        word := '';

        for i := 1 to Length(s) do
                if s[i] = ' ' then begin
                        if not (Odd(Length(word))) then begin
                                for j := Length(word) downto 1 do
                                        Write (word[j]);
                                WriteLn;
                        end;
                        word := '';
                end
                else
                        word := word + s[i]
end.

Это уже слегка хитрее

var
        s, word : string;
        i, j : Integer;

begin
        ReadLn (s);
        s := ' ' + s ;
        word := '';

        for i := Length(s) downto 1 do
                if s[i] = ' ' then begin
                        if not (Odd(Length(word))) then begin
                                        Write (word);
                                WriteLn;
                        end;
                        word := '';
                end
                else
                        word := word + s[i]
end.