Результати пошуку

  1. Пух

    Помогите определится с интернетом...

    насколько я знаю, на качество влияет только состояние линии, а не оборудывание на АТС. Легче позвонить в телеком и узнать там =) п.с. интертелеком?
  2. Пух

    Помогите определится с интернетом...

    а разве оборудывание на АТС влияет на возможность предоставления услуги ОГО ?
  3. Пух

    Turbo Pascal

    примерный вариант я писал, только немного запутался в циклах, по этому не получалась задача. пришлось по-другому делать... ваш вариант тоже не идеальный, т.к. программа найдет все строки, в которых все элементы положительные, и только потом выдаст на экран номер последней такой строки(у вас...
  4. Пух

    Turbo Pascal

    уже нашел неточность: если в строке есть ноль, то прога считает его как положительное число, хотя с точки зрения математики оно таковім не является)
  5. Пух

    Turbo Pascal

    хух, наконецто решил... сам в шоке... далеко не самое быстрое решение, но хоть работает.... uses crt; Const m=10; n=5; var a:array[1..m, 1..n] of integer; {массив 5х10} b:array[1..m] of integer; {вспомагательній массив, туда будем записівать сумму чисел каждой строки, меньших или...
  6. Пух

    суров :Р

    суров :Р
  7. Пух

    Кому порешать задачи - пишите сюда

    указатели я в 10м классе особо и не понял)) ладно, не будем отклонятся от темы =)
  8. Пух

    Кому порешать задачи - пишите сюда

    тоже самое что и перед єтим біло...
  9. Пух

    Кому порешать задачи - пишите сюда

    uses crt; const n=5; var x,z:array[1..n] of integer; s,k,i:integer; begin clrscr; for i:=1 to n do begin write('x[',i,']='); readln(x[i]); end; clrscr; write('massiv x:'); for i:=1 to n do begin if i<n then write(x[i],',') else write(x[i]); end; k:=0; for i:=1 to n do...
  10. Пух

    Кому порешать задачи - пишите сюда

    какая? убери коментарии(они в паскале по другому записіваються). У меня все запускается и даже работает оО п.с. сумму нужно искать включая данные отрицательные элементы или без них? если без них, то немного переделать нужно.
  11. Пух

    Кому порешать задачи - пишите сюда

    uses crt; const N=5; var a:array[1..N] of integer; s,i,tmp,tmp1:integer; flag:boolean; begin clrscr; for i:=1 to N do begin //ввод массива write('A[',i,']='); readln(a[i]); end; clrscr; for i:=1 to N do begin if i<N then write(a[i],',')...
  12. Пух

    ОГО+Телесвит

    Пуск-выполнить и по очередно віполнить 2 команді: где Х - твоя подсеть.
  13. Пух

    Turbo Pascal

    1-я
  14. Пух

    Какой телефон?

    указывайте цены в магазинах!!! это тема не для покупки б/у телефон. Если автор хочет купить б/у телефон - милости прошу в соседний раздел...
  15. Пух

    Обсуждаем оператора Beeline

    И какая реальная скорость на этом тарифе? (интересует безлимитный интернет)
  16. Пух

    Слухи или правда.

    http://forums.sumy.ua/showthread.php?t=53025 как раз под вашей темой...
  17. Пух

    Turbo Pascal

    если я не ошибаюсь, то нету. думаю дугами не сложно будет
  18. Пух

    Turbo Pascal

    там только два числа(x,y) нужно было поменять=) floodfill(x,y,color)
  19. Пух

    Turbo Pascal

    да, именно так. Выбирайте любую точку, которая находится внутри(согласно определению floodfill)
  20. Пух

    Turbo Pascal

    напиши свой код и будет легче указать где ошибка.
Зверху