[Игра] "Ctrl + V"

[Milo]

http://rghost.ru/36697634

[Саурон]

/script DEFAULT_CHAT_FRAME:AddMessage("\124cffa335ee\124Hi tem:46104:0:0:0:0:0:0:0:0\124h[Майка йоггоборца]\124h\124r");

[Ling]

7836b3

[tseb]

Bullet For My Valentine (BFMV) All These Things I Hate (Revolve Around Me)

[Daft]

45877

[Neo]

=> (10 символов)

[N_Dragon]

http://vk.com/pozitivs

[neduha]

удалить

[_Fifty_]

Battery Calibrator

[Elite]

http://s40.radikal.ru/i089/1202/6a/8643c6f1733c.png

[Sargos]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var s:string;

procedure all (s:string);
var arn,l:byte;flag:boolean;

procedure bin (l:byte);
begin
if l<>1 then if (l mod 2)=0 then begin
inc (arn);
bin (l div 2);
end
else flag:=false;
end;

procedure sostav (rev:string);
var i:byte;per:char;
begin
for i:=1 to l do begin
case rev[i] of
'1': rev[i]:='0';
'0': rev[i]:='1'
else flag:=false;
end;
end;
for i:=1 to (l div 2) do begin
per:=rev[i];
rev[i]:=rev[l-i+1];
rev[l-i+1]:=per;
end;
if flag then
if rev=s then writeln ('function samodvoistvenna')
else writeln ('dvoistvennaya - ',rev)
end;

begin
flag:=true;
arn:=0;
l:=length (s);
bin (l);
if not(flag) then write ('not function')
else begin
writeln ('peremennih ',arn); sostav (s)
end;;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
write ('vvedite vektor funkcii ');
read (s);
all (s);
readln;
readln;
end.

[Deadsaref]

[20:25:16] Stefan: Как писать про баг?