• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Недавнее содержимое от DDS

  1. D

    MS Access, защита данных

    MS Access, защита данных Здравствуйте, уважаемые форумчане! Возникла такая задача: есть база данных MS Access, необходимо обеспечить защиту данных, а точнее ограничение на работу с базой данных. Т.е. нужно сделать так, чтобы один пользователь имел полный доступ к базе данных, имел полные...
  2. D

    Помогите с двумя задачами на Паскале

    Вот решение 2 задачи, заполнение происходит спиралью из центра. Скажу сразу, писал не я, но программу проверил - рабочая. var a:array [1..100,1..100] of integer; i,j,s,x,y,n:integer; napr,shag:byte; begin readln(n); {считываем n} x:=n+1; {координаты текущей клетки} y:=n+1; shag:=1...
  3. D

    Поздравляем Дениса ака DDS с Днём рождения!

    Всем спасибо!
  4. D

    Поздравляем Дениса ака DDS с Днём рождения!

    Спасибо большое, очень приятно!
  5. D

    Поздравляем Дениса ака DDS с Днём рождения!

    Спасибо большое! Конечно, сейчас, из-за учёбы, не хватает времени общаться на форуме, но всё равно очень приятно, что не забываете меня и поздравляете!
  6. D

    Мольба о помощи

    Вот блок-схема, составленная по программе Vladimir_S.
  7. D

    Помогите решить задачи

    Вот 2 задача на С++ #include<iostream.h> int main() { int a[100],b[100],c[100]; int t,i,j,m,n; bool u; cin >> n; cout << "array a \n"; u=true; while (u) { u=false; for (i=1;i<=n;i++) cin >> a[i]; for (i=1;i<=n-1;i++) for (j=i+1;j<=n;j++) if (a[i]==a[j]) {...
    • DDS
    • Сообщение №8
    • Форум: C/C++/С#
  8. D

    Помогите решить задачи

    Вот 1 задача на С++ #include<iostream.h> int main() { int n,i,k; cin >> n; i=2; k=0; while (k<=n) { if (i%3==0) { cout << i ; cout << "\n" ; k=k+1; } i=i+2; } return 0; }
    • DDS
    • Сообщение №7
    • Форум: C/C++/С#
  9. D

    Помогите решить задачи

    Ой, извини. Это я очень не внимателен, был уверен, что необходимо на Паскале. Могу попробывать переделать в С++, но это займёт некоторое время.
    • DDS
    • Сообщение №5
    • Форум: C/C++/С#
  10. D

    Помогите решить задачи

    А вот 2 задача. var a,b,c:array[1..100] of integer; t,i,j,m,n:integer; u:boolean; begin readln(n); writeln('array a'); repeat u:=true; for i:=1 to n do read(a[i]); for i:=1 to n-1 do for j:=i+1 to n do if a[i]=a[j] then begin u:=false...
    • DDS
    • Сообщение №3
    • Форум: C/C++/С#
  11. D

    Помогите решить задачи

    Вот первая задачка. var n,i,k:integer; begin readln(n); i:=2; k:=0; repeat if (i mod 3)=0 then begin writeln(i); k:=k+1; end; i:=i+2; until k>=n; readln; end.
    • DDS
    • Сообщение №2
    • Форум: C/C++/С#
  12. D

    Паскаль. Помогите с решением задач

    Задача 1 var x,s:real; i:integer; begin read(x); s:=x*0.2; for i:=1 to 5 do begin x:=x+s; writeln('Price of the ',1.0+i*0.2:5:2,' kilograms = ',x:5:2,' '); end; readln; end. Задача 2 const n=5; var a:array [1..n] of integer; i:integer; begin...
  13. D

    Составить блок-схему и программу

    А вот блок-схемы к 3 и 4 задачам.
  14. D

    Составить блок-схему и программу

    Блок-схемы к 1 и 2 задачам
  15. D

    Помогите решить. Паскаль

    program t1; const n=5; var a: array [1..n] of real; i,k:integer; t,min:real; begin randomize; for i:=1 to n do a[i]:=random(100)+1; writeln; for i:=1 to n do write(a[i]:5:2,' '); min:=a[1]; k:=1; for i:=1 to n do if (a[i]<=min) then begin...
Назад
Сверху