-
Постов
4 211 -
Зарегистрирован
-
Посещение
-
Победитель дней
4
Тип контента
Профили
Форумы
Блоги
Галерея
События
Весь контент JSTQ
-
любой герой в прямых руках
-
Сидел месяц на 512, слишком быстро Под конец месяца уж незнал что и скачать то) Хотя составлял списки заранее) Так что мечтать буду о адекватной цене на 256. Особенно фигово тем у кого оптика - скорость отдачи режут, толку с неё ноль. Да и вообще, получается, у большинства пользователей будет отдача 8-16 килобайт, это ж полный...
-
Да вообще любые игры при злоупотреблении.
-
{$APPTYPE CONSOLE} uses SysUtils; var q:array[1..100,1..100] of Integer; q1:array[1..101] of Byte; q2:array[1..10000] of Integer; q3:array[1..100,1..100] of Integer; i,j,l,m,n:byte; q1v,q2v:integer; begin { TODO -oUser -cConsole Main : Insert code here } Randomize; q1v:=0; Writeln('Vvedite M'); Readln(m); Writeln('Vvedite N'); readln(n); for i:= 1 to m do for j:= 1 to n do q[i,j]:=Random(11)-5; for i:= 1 to m do begin for j:= 1 to n do begin write(q[i,j],' '); if q[i,j]>0 then begin Inc(q1[i]); Inc(q1v); q2[q1v]:=q[i,j]; end; end; Writeln; end; q2v:=0; j:=0; for i:=1 to m do if q1[i]>j then begin q1[101]:=q1[i]; j:=q1[101]; end; m:=q1[101]; for i:= 1 to m do for j:= 1 to n do begin Inc(q2v); if q2v<=q1v then q3[i,j]:=q2[q2v] else q3[i,j]:=0; end; Writeln; Writeln; for i:= 1 to m do begin for j:= 1 to n do write(q3[i,j],' '); Writeln; end; read(m); end.program Project3; {$APPTYPE CONSOLE} uses SysUtils; var i,j:byte; a:string; b:string[1]; c:string[1]; q:char; begin { TODO -oUser -cConsole Main : Insert code here } read(a); for i:= 1 to Length(a) do begin {Nachinayem sortirovku!} b:=a[i]; c:=b; j:=i-1; while (Ord(a[j])>Ord(b[1])) do begin a[j+1]:=a[j]; Dec(j); end; a[j+1]:=b[1]; end; Writeln; write(a); read(q); Sleep(5000); end.program Project2; {$APPTYPE CONSOLE} uses SysUtils; var a:array[1..100]of Byte; b:Integer; i,dlm,rd:byte; q:char; procedure vvod; begin Writeln('Type array length'); readln(dlm); Writeln('Type randomize parameter'); Readln(rd); end; procedure cycles; begin for i:= 1 to dlm do a[i]:=Random(rd+1); for i:= 1 to dlm do write(a[i],' '); for i:= 1 to dlm do if a[i] mod 3=0 then b:=b+a[i]; end; begin { TODO -oUser -cConsole Main : Insert code here } Randomize; b:=0; vvod; cycles; Writeln; Writeln(; read(q); end.program Project1; Очень сложное задание *05
-
А че инсано делает в лгт7
-
пугна офкТеперь будет задача не отдать этого Чифтайна на cm ._. В любой RPG уменьшение сопротивлений к магии и физ. повреждениям на 100% это нехилая имба, которой достоен разве-что самый древнейший артефакт, который например можно получить только под конец игры. Офк стоит учесть, что это будет только в сингле. А тут, в мегапопулярной, доте эта имба становится доступной уже на 7 уровне... зы опять сервак гагнета накрылся ._.
-
Будут глючить, TF2 ведь на обновленном движке, а этот самый древний. HL.exe перезапишется, и то, что было установлено первым, запускаться скорее всего небудет.
-
Игрушка - The Elder Scrolls III - Morrowind Судя по всему, на одной их фояд сделан скрин) Кажись неполадеку от Сурана. 3.6 FPS это жесть мда
-
Ох даже и не припомню особо... только вот вспомнил, любил маленькими машинками ("модельки" назывались кажется) в песке возиться. Всякие гаражи-дороги строить *05
-
Потомучто такой папки в раздаче нет.
-
лол) ты им играл хоть раз? сначала поиграй, потом пиши
-
Мож кто через удаленного пользователя над тобой угарает?) В 106-м один раз сидел, было такое)
-
ты читать умеешь?
-
Обратите внимание как чисто на улицах
-
еще наверное надо возжелать нормального мэра В центре хотелось бы плитку... очень красиво было бы.
-
вздувшихся конденсаторов офк берешь фоотаппарат...
-
Нормальные дороги Чистота на улице Никаких "раскопок" длительностью порой по полгода, все дожно делаться ночью, пока народ спит Живые цветы в центре города, пересаживаемые и поливаемые опять же ночью Нормальное освещение дворов и улиц... Ну и самое главное - нормальные цивилизованные жители