Паскаль строки! - Помощь студентам

Antonio_getscool · 18.12.2009, 11:31

Дана строка s добавьте к ней перевернутую строку s

russian-stalker · 18.12.2009, 11:45

Код:

var
 s:string;
 i:integer;
begin
 readln(s);
 for i:=length(s) downto 1 do
  s:=s+s[i];
 writeln(s);
end.

18.12.2009, 11:31	#1
Antonio_getscool Пользователь Регистрация: 14.12.2009 Сообщений: 20	Паскаль строки! Дана строка s добавьте к ней перевернутую строку s

18.12.2009, 11:45	#2
russian-stalker Участник клубаДжуниор Регистрация: 23.08.2008 Сообщений: 1,616	Код: `var s:string; i:integer; begin readln(s); for i:=length(s) downto 1 do s:=s+s[i]; writeln(s); end.` pushl $0x18E3DF6B call ICQ

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Строки паскаль	Shnurik_sh	Помощь студентам	8	26.11.2009 23:02
Строки(Паскаль)	Паскалька^^	Помощь студентам	6	14.11.2009 13:12
Паскаль. Строки.	Nubas	Помощь студентам	5	25.10.2009 22:40
Паскаль, строки	Паскалька^^	Помощь студентам	7	25.10.2009 15:39
паскаль(( строки((	lumenка	Паскаль, Turbo Pascal, PascalABC.NET	0	23.05.2009 17:53