Перейти к содержанию

JSTQ

Пользователи
  • Постов

    4 211
  • Зарегистрирован

  • Посещение

  • Победитель дней

    4

Весь контент JSTQ

  1. любой герой в прямых руках
  2. Ой ну не надо а? Интернет для халявы и создан. А основания привел Mac уже 2 месяца назад в этой теме.
  3. Сидел месяц на 512, слишком быстро Под конец месяца уж незнал что и скачать то) Хотя составлял списки заранее) Так что мечтать буду о адекватной цене на 256. Особенно фигово тем у кого оптика - скорость отдачи режут, толку с неё ноль. Да и вообще, получается, у большинства пользователей будет отдача 8-16 килобайт, это ж полный...
  4. Да вообще любые игры при злоупотреблении.
  5. С введением единой внутренней зоны для абонентов, нормальный провайдер сделал бы и единые цены.
  6. Поидее не грозит, но кто их знает.Если введут, бурятский филиал СТК станет самым знаменитым провайдером в России, а Здаров - вторым Петросяном *05
  7. Ну если будет безлимит 128 ценой до 250-300 рублей, то можно будет перейти практически безболезненно. Все равно в 150 рублей мало кто умещается.
  8. {$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
  9. Кенни я вижу опять убили)
  10. пугна офкТеперь будет задача не отдать этого Чифтайна на cm ._. В любой RPG уменьшение сопротивлений к магии и физ. повреждениям на 100% это нехилая имба, которой достоен разве-что самый древнейший артефакт, который например можно получить только под конец игры. Офк стоит учесть, что это будет только в сингле. А тут, в мегапопулярной, доте эта имба становится доступной уже на 7 уровне... зы опять сервак гагнета накрылся ._.
  11. Будут глючить, TF2 ведь на обновленном движке, а этот самый древний. HL.exe перезапишется, и то, что было установлено первым, запускаться скорее всего небудет.
  12. JSTQ

    Демотиваторы

    Игрушка - The Elder Scrolls III - Morrowind Судя по всему, на одной их фояд сделан скрин) Кажись неполадеку от Сурана. 3.6 FPS это жесть мда
  13. Ох даже и не припомню особо... только вот вспомнил, любил маленькими машинками ("модельки" назывались кажется) в песке возиться. Всякие гаражи-дороги строить *05
  14. Потомучто такой папки в раздаче нет.
  15. JSTQ

    Diablo II

    лол) ты им играл хоть раз? сначала поиграй, потом пиши
  16. Мож кто через удаленного пользователя над тобой угарает?) В 106-м один раз сидел, было такое)
  17. Обратите внимание как чисто на улицах
  18. еще наверное надо возжелать нормального мэра В центре хотелось бы плитку... очень красиво было бы.
  19. вздувшихся конденсаторов офк берешь фоотаппарат...
  20. Нормальные дороги Чистота на улице Никаких "раскопок" длительностью порой по полгода, все дожно делаться ночью, пока народ спит Живые цветы в центре города, пересаживаемые и поливаемые опять же ночью Нормальное освещение дворов и улиц... Ну и самое главное - нормальные цивилизованные жители
×
×
  • Создать...