Beseech
Вид для печати
Beseech
/э Deablock выбрасывает 100 (1-100)
ахахахахахахахахахахаххах ахаххаахаххаахахаххахахах ахахахахахахахахахаха =)Цитата:
Сообщение от Deablock
POISONBLACK - Bear The Cross (OFFICIAL VIDEO)
Сова Зимних Ключей
1. Проектирование АИС учета начисления квартплаты и оплаты коммунальных услуг.
The Arkham Carolers
RealPlayer
Inhale the Sea – Taking Time
в пп гер нид все
(int)(paintingBox.CreateGraphics().VisibleClipBoun ds.Height / 2), (int)(paintingBox.CreateGraphics().VisibleClipBoun ds.Width / 2)
ня ♥ ｡◕‿◕｡
- Мама, я повешусь!
- Я тебя накажу!
- Как? Перевесишь в угол?
Intel
Скачать бесплатно игры, темы, рингтоны, обои и приложения для Apple iPhone 4, iPhone 3G, iPad
Canon EF 17-40/4 L
Вы ввели слишком длинный текст (710611 символов). Пожалуйста, сократите его до 20000 символов
Дымовая Завеса - Неизданное 1997-2007
Skyrim
лесной болван
помогите пожалуйста,как подключиться,где реалмитс??scratch_one-s_head
/script DEFAULT_CHAT_FRAME:AddMessage("\124cffa335ee\124Hi tem:46104:0:0:0:0:0:0:0:0\124h[Майка йоггоборца]\124h\124r");
7836b3
Bullet For My Valentine (BFMV) All These Things I Hate (Revolve Around Me)
45877
=> (10 символов)
удалить
Battery Calibrator
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.
[20:25:16] Stefan: Как писать про баг?