В строке все слова зашифрованы – каждое из них записано наоборот. Расшифровать заданное сообщение

@typak · Регистрация: 20.06.2012

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

В строке все слова зашифрованы – каждое из них записано наоборот. Расшифровать заданное сообщение.

@Das Gespenst · 28.06.2012, 03:03

Pascal

program z;
uses crt;
var s,c:string; i,j,l:byte;
a:array [1..100] of string;
begin
     clrscr;
     write('Введите строку: ');
     readln(s);
     j:=1; a[j]:='';
     for i:=1 to length(s) do
         if copy(s,i,1)<>' '
            then
                a[j]:=a[j]+copy(s,i,1)
         else
             j:=j+1;
     for i:=1 to j do
         begin
              c:='';
              for l:=length(a[i]) downto 1 do
                  c:=c+copy(a[i],l,1);
              a[i]:=c;
         end;
     write('Расшифровка: ');
     for i:=1 to j do
         write(a[i],' ');
     readln;
end.

@typak 0 / 0 / 0 Регистрация: 20.06.2012 Сообщений: 57
		1
	В строке все слова зашифрованы – каждое из них записано наоборот. Расшифровать заданное сообщение 27.06.2012, 17:33. Показов 2745. Ответов 1 Метки нет (Все метки) В строке все слова зашифрованы – каждое из них записано наоборот. Расшифровать заданное сообщение. 0

	28.06.2012, 03:03

В строке все слова зашифрованы – каждое из них записано наоборот. Расшифровать заданное сообщение

Решение