nyuuzyou/soloby huggingface dataset:
Вопрос: Дан массив целых чисел. Определить: 1) сумму всех элементов массива; 2) произведение всех элементов массива; 3) среднее арифметическое всех элементов массива.
Категория: школьный раздел
Ответы:
program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,s,n,p,k: integer;
    m:mas;
begin
randomize;
for i:=1 to 10 do
begin
m[i]:=random(45)+1;
write(m[i], '  ');
s:=S+m[i];
end;
writeln;
write( s);
end.    

program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,s,n,p,k: integer;
    m:mas;
begin s:=1;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(5)+1;
write(m[i], '  ');
s:=S*m[i];
end;
writeln;
write( s);
end.    

program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,n,p,k: integer;
    m:mas; s:real;
begin s:=0;
randomize;
for i:=1 to 10 do
begin
m[i]:=random(10)+1;
write(m[i], '  ');
s:=S+m[i];
end;
writeln;
write( s/10);
end.
Вопрос: Переставить элементы, стоящие на нечетных местах, с соответствующими элементами на четных местах
Категория: школьный раздел
Ответы:
program massiv ;
uses crt;
 type mas=array[1..1000] of integer;
var i,n,r: integer;
    m:mas;
begin writeln ('введи кол-во эл-в массива') ;
readln (n);
    randomize;
       for i:=1 to n do
    begin
    m[i]:=random(45)+1;
    write(m[i], '  ');
        end;
        writeln;
    i:=1;
    while i<= n-1 do
    begin
    r:=m[i]; m[i]:=m[i+1]; m[i+1]:=r;
    inc(i,2); end;
    for i:=1 to n do
    write(m[i], '  ');
    end.
Вопрос: Дано натуральное число n (n≤999999). Заполнить массив его цифрами, расположенными в обратном порядке (первый элемент равен последней цифре, второй – предпоследней и т.д.).
Категория: школьный раздел
Ответы:
program massiv ;
uses crt;
 type mas=array[1..1000] of integer;
var i,n,r: integer;
    m:mas;
begin writeln ('введи число') ;
readln (n); i:=1;
repeat
m[i]:= n mod 10;
n:= n div 10;
i:=i+1;
until n=0;
    for r:=1 to i-1 do
    write(m[r], '  ');
    end.
Вопрос: Посчитать количество четных элементов массива
Категория: школьный раздел
Ответы:
program massiv ;
uses crt;
  type mas=array[1..1000] of integer;
var i,n,s: integer;
    m:mas;
begin writeln ('введи число') ;
readln (n);
 randomize;
 for i:=1 to n do
    begin
    m[i]:=random(45)+1;
    write(m[i], '  ');
    if m[i] mod 2=0 then  s:=s+1;                     или    inc(s,1)
 end;
 writeln;
 write(s );
 end.
Вопрос: Удалить из массива k-й элемент
Категория: школьный раздел
Ответы:
program massiv ;
uses crt;
  type mas=array[1..1000] of integer;
var i,n,k: integer;
    m:mas;
begin writeln ('введи число') ;
readln (n);
 randomize;
 for i:=1 to n do
    begin
    m[i]:=random(45)+1;
    write(m[i], '  ');
    end;
 writeln;
 write('введи номер эл-та '); readln (k) ;
  writeln;
 for i:=1 to n do
 if i>=k then m[i]:=m[i+1];
 for i:=1 to n-1 do
 write(m[i], '  ');
 end.
Вопрос: Вставить элемент в массив
Категория: школьный раздел
Ответы:
program massiv ;
uses crt;
  type mas=array[1..1000] of integer;
var i,n,k,r: integer;
    m:mas;
begin writeln ('введи число') ;
readln (n);
 randomize;
 for i:=1 to n do
    begin
    m[i]:=random(45)+1;
    write(m[i], '  ');
    end;
 writeln;
 write('введи номер эл-та '); readln (k) ;
 write('введи эл-т '); readln (r) ;
  writeln;
 for i:=n+1 downto 1 do
 if i>k then m[i]:=m[i-1];
 m[k]:=r;
 for i:=1 to n+1 do
 write(m[i], '  ');
 end.
Вопрос: Программа вычисляет частное двух  чисел
Категория: школьный раздел
Ответы:
program DemoIf;
uses wincrt;
var a, b: integer; c: real;
begin
write (‘Введите два числа: ’);
readln (a, b);
if b=0 then writeln (‘Нет решения’)
else 
begin
c:=a/b;
writeln (‘Частное чисел ’,a,’ и ’,b,’=’, c)
end
end.
Вопрос: Программа суммирует n-е количество вводимых с клавиатуры чисел
Категория: школьный раздел
Ответы:
program DemoWhile;
var c, n: integer;
x, s: real;
begin
write (‘Введите к-во чисел n=’);
readln (n);
c:=0;
s:=0;
while c<=n do
begin
c:=c+1;
write (c,’-е число:’);
readln (x);
s:=s+x
end;
write (‘Сумма чисел =’,s)
end.
Вопрос: Вычисление суммы элементов массива
Категория: школьный раздел
Ответы:
program SummaElementov;
const n=7;
var A: array [1..n] of integer;
S, i: integer;
begin
writeln (‘Введите элементы массива А’);
for i:=1 to n do readln {a[i]);
s:=0;
for i:=1 to n do s:=s+a[i];
write (‘Сумма элементов массива =’,s)
end.
Вопрос: Программа формирует одномерный массив случайными числами, выполняет поиск наибольшего элемента массива, а затем выводит на экран его значение и порядковый номер
Категория: школьный раздел
Ответы:
program Max_Element;
var M: array [1..20] of byte;
max, i, n: byte;
begin
randomize;
for i:=1 to 20 do
begin
m[i]:=random(40);
write (m[i],’ ‘);
end;
writeln;
max:=m[1]; {считать 1-й элемент максимальным}
n:=1; {запомнить номер максимального элемента}
for i:=2 to 20 do {проверить все элементы, начиная со второго}
begin
if m[i]>max then {если очередной (i-й) элемент массива больше чем max}
begin
max:=m[i]; {то считать максимальным i-й элемент}
n:=i; {и запомнить его порядковый номер}
end;
end;
writeln (‘Максимальный элемент: ‘,max);
writeln (‘Он расположен на ‘,n,’ месте‘)
end.
Вопрос: Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление площади кольца.
Введите исходные данные:
Радиус кольца (см) -> 3.5
Радиус отверстия (см) ->7
Ошибка! Радиус отверстия не может быть больше радиуса кольца.
Категория: школьный раздел
Ответы:
var
rl,r2 : real; { радиус кольца и отверстия }
s : real;     { площадь кольца }
begin
writeln('Введите исходные данные:');
write('радиус кольца (см) -> ');
readln(rl);
write('радиус отверстия (см) —> ');
readln(r2);
if rl > r2 then
      begin
s:=PI*(sqr(rl)-sqr(r2));
writeln ('Площадь кольца ',s:6:2,' кв.см’);
end
         else writeln ('Ошибка! Радиус отверстия не может быть ',
'больше радиуса кольца.');
writeln ('Для завершения работы программы нажмите <Enter>');
readln;
end.
Вопрос: Написать программу, которая выводит таблицу квадратов первых десяти целых чисел
Категория: школьный раздел
Ответы:
var
x: integer; {число}
y: integer; {квадрат числа }
i: integer; { счетчик циклов}
begin 
writeln (‘Таблица квадратов’);
writeln(‘------------------------‘);
writeln(‘Число   Квадрат’);
writeln(‘------------------------‘);
for i:=l  to 10 do
begin
y:=x*x;
writeln (x:3,y:10);
x:=x+1;    
end;
writeln(‘------------------------‘);
readln;
end.
Вопрос: Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры
Категория: школьный раздел
Ответы:
var
а : integer; { число, введенное с клавиатуры }
n : integer; { количество чисел }
s : integer; { сумма чисел }
m : real;    { среднее арифметическое }
begin
     s:=0;
      n:=0;
    writeln('Вычисление среднего арифметического
последовательности положительных чисел.');
        writeln('Вводите после стрелки числа. ',
'Для завершения ввода введите ноль.');
         repeat
write(‘> ');
readln(a) ;
s:=s+a;
n:=n+l;
until a <= 0;
n:=n -l;
writeln('Введено чисел: ', n) ;
writeln('Сумма чисел: ',s);
m := s/n;
writeln('Среднее арифметическое: ',m:6:2);
writeln('Для завершения работы программы нажмите <Enter>');
readln;
end.
Вопрос: Написать программу, которая вычисляет наибольший общий делитель двух целых чисел
Категория: школьный раздел
Ответы:
var
nl,n2:integer;  {  числа, НОД которых надо найти }
nod:integer;    { наибольший общий делитель }
г:integer;     { остаток от деления nl на п2 }
begin
writeln('Вычисление наибольшего общего делителя');
writeln('для двух целых чисел.');
write('Введите в одной строке два числа ');
writeln('и нажмите <Enter>');
write('->');
readln(nl,n2);
while (nl mod n2)<>0 do
begin
r:=nl mod n2; { остаток от деления}
nl:=n2;
n2:=r;
end;
nod:=n2;
writeln('НОД чисел ',nl,' и ',п2,' это ',nod);
readln;
end.
Вопрос: Написать процедуру, которая выводит на экран строку, состоящую из звездочек
Категория: школьный раздел
Ответы:
procedure StarLine (ltn: integer);
var
i: integer;
begin
for i:=1 to len do 
write (‘*’);
end.
Вопрос: Написать функцию, которая вычисляет сопротивление цепи, состоящей из двух резисторов. Параметрами функции являются величины сопротивлений и тип соединений (последовательное и параллельное). Функция должна проверять корректность параметров: если не верны, указан тип соединения, то функция должна возвращать -1.
Категория: школьный раздел
Ответы:
{ Вычисляет сопротивление электрической цепи } 
function Sopr(rl,r2: real; t: integer): real; 
{ rl,r2 - величины сопротивлений t - тип соединения: 1- последовательное; 2- параллельное. Если тип соединения указан неверно, то возвращает -1 }
begin
if t-1 then Sopr:= rl+r2;
if t=2 then Sopr:= rl*r2/(rl+r2)
else Sopr:=-l;  { неверно указан тип соединения}
end;
Вопрос: Вычислить n-й элемент арифметической профессии  
a1 = 1,    а2=3,    а3=5,    а4=7,    а5=9,  ... .
Категория: школьный раздел
Ответы:
vаг N,I:   0. .МахInt;
А:   Rеаl;
Begin
Write (‘N=’);
Readln(N);
А:=1;
For I:=2  То N Do
А:=А+2;
Writeln (‘A(‘,N:1,’)=’,A:6:0);
End.
Вопрос: Просуммировать первые n элементов геометрической прогрессии (2) (не пользуясь формулой для суммы первых n членов прогрессии).
Категория: школьный раздел
Ответы:
vаг N,I:   0. .МахInt;
А,S:   Rеаl;
Begin
Write (‘N=’);
Readln(N);
А:=1;
S:=A;
For I:=2  То N Do
Begin 
А:=2*А;
S:=S+A;
End;
Writeln (‘Сумма равна‘,S:6:0);
End.
Вопрос: Написать программу, которая выводит на экран флаг Олимпийских игр
Категория: школьный раздел
Ответы:
{Рисует Олимпийский флаг}
uses Graph;
var
     grDriver: integer; {драйвер}
     grMode: integer;  {графический режим}
     grPath:string;       {место расположения драйвера}
     ErrCode:integer;  {результат инициализации граф, режима}
 begin
           grDriver := VGA;     { режим VGA}
           grMode :=VGAHi;   { разрешение 640x480}
           grPath:=' ';                {драйвер, файл EGAVGA.BGI, находится в текущем каталоге }
           InitGraph(grDriver, grMode, grPath);
           ErrCode := GraphResult;
           if ErrCode <> grOk then
                 begin
                    writeln('Ошибка инициализации графического режима.');
                    writeln('для завершения работы программы нажмите ', '<Enter>'); 
                    readln;
                    Halt(l);
                 end;
{полотнище флага}
SetFillStyle(SolidFill,LightGray); {сплошная заливка серым цветом}
Ваг(80,80,200,135);
{ кольца}
SetColor(Green);    (зеленое)
Circle(100,100,15);
SetColor(Black);    (черное)
Circle(140,100,15);
SetColor(Red);       (красное)
Circle(180,100,15);
SetColor(Yellow);  (желтое)
 Orel e( 120,115,15); 
SetColor(Blue);       (синее)
 Orel e(l 60,115,15); 
readln;
CloseGraph;
 end.
Вопрос: Написать программу, которая вычерчивает на экране узор из 100 окружностей случайного диаметра и цвета
Категория: школьный раздел
Ответы:
{Выводит узор из 100 произвольно размещенных окружностей произвольного
радиуса и цвета}
 uses Graph;
 var
      grDriver:integer;
      grMode: integer;
      grPath:string; 
      ErrCode:integer;
       x,y,r: integer; ( координаты центра и радиус окружности }
       i: integer;
 begin
       grDriver:=VGA; 
       grMode:=VGAHi;
       grPath:=' ';
       InitGraph (grDriver,grMode,grPath);
       ErrCode:=GraphResult;
       if ErrCode <> grOk then
               begin
                    writeln ('Ошибка инициализации графического режима.1); 
                    writeln ('Для завершения работы нажмите <Enter>');
                    readln;
                    Halt(l); 
                    end;
          Randomize;
          for i:=l to 100 do 
                 begin
                      x:=Random(640);
                      y:=Random(480);
                      r:=Random(240);
                      Setcolor(Random(16));
                      Circle(x,y,r); 
                      end;
    readin;
 end.
Вопрос: Написать программу, которая на сменном диске компьютера (А) создает файл numbers.txt и записывает в него 5 введенных пользователем целых чисел. Просмотрите при помощи редактора текста, например, встроенного в Norton Commander, созданный файл. Убедитесь, что каждое число находится в отдельной строке
Категория: школьный раздел
Ответы:
( Создает на диске А: файл и записывает в него 5 целых чисел, введенных пользователем}
 var
     f: text;   { текстовый файл )
     n: integer; { число }
      i: integer; { счетчик чисел } 
begin
writeln ('Создание файла') ; 
writeln ('Введите пять целых чисел.1);
writeln ('После ввода каждого числа нажимайте <Enter>'); Assign (f, 'a:\numbers.txt' );
 Rewrite(f); { открыть в режиме перезаписи }
 for i:=l to 5 do
      begin
          write ('->');
          readln(n); 
          writeln(f,n);
      end;
close(f);    { закрыть файл }
       writeln ('Введенные числа записаны в файл ', ' а: \nunibers. Txf)
       readln;
 end.
Вопрос: Разнообразные функции руководителя находят отражение в разнообразии выполняемых ролей, а именно
(*ответ*) организатора, администратора
(*ответ*) психолога, социального психолога, педагога
(*ответ*) информационного работника
(*ответ*) юриста
(*ответ*) экономиста
(*ответ*) политика
(*ответ*) предпринимателя
 инженера
Разработка «древа целей» осуществляется путём последовательной декомпозиции главной цели на подцели по следующим правилам
(*ответ*) формировка целей должна описывать желаемые результаты (состояние, предметы и т.д.), но не действия, необходимые для их достижения
(*ответ*) формулировка главной цели должна давать описание конечного результата
(*ответ*) достижение подцелей каждого последующего уровня должно стать необходимым и достаточным условием достижения целей данного уровня
(*ответ*) на каждом уровне подцели должны быть независимыми и невыводимыми друг из друга
(*ответ*) декомпозиция прекращается, когда формулировка подцели позволяет приступить к её реализации без дальнейших пояснений
 формировка целей должна описывать желаемые результаты (состояние, предметы и т.д.) и действия, необходимые для их достижения
 формулировка главной цели должна давать описание промежуточных результатов
Решение любого вопроса в управлении в более короткое время, своевременно оказывает положительное влияние на
(*ответ*) конечный результат
 организационную деятельность
 целеполагание
 стратегию деятельности
 тактику деятельности
С позиции _, управление – это процесс проектирования и инновации социальных организаций, мотивации людей к деятельности для достижения целей организации
(*ответ*) менеджмента
 социального управления
 правоведения
 экономической науки
 социальной психологии
 социологии
С понятием “организационная структура” непосредственно соотносятся понятия
(*ответ*) “подразделение”
(*ответ*) “звено”
(*ответ*) “ступень”
(*ответ*) “орган”
(*ответ*) “формальная” структура
(*ответ*) “неформальная” структура
(*ответ*) “диапазон управления”
 «элемент»
Сегодня нет чисто экономических, социальных, политических или только духовных образований; появились интегральные зоны
(*ответ*) социально-экономическая
(*ответ*) культурно-политическая
(*ответ*) духовно-бытовая
 социально-политическая
 духовно-нравственная
 социально-психологическая
Система социального управления, в которой реализуются различные функции управления
(*ответ*) включает разных специалистов, объединённых в органах управления
(*ответ*) использует совокупность методов управления, в том числе и совокупность средств вычислительной и организационной техники
(*ответ*) объединяет различные виды информации
 включает родственных специалистов, объединённых в органах управления
 объединяет различные виды социальной информации
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2).
Категория: школьный раздел
Ответы:
program example1;
var x1, x2, y1, y2: Integer;
    d:Real; 
begin 
    Writeln('Эта программа вычисляет расстояние между двумя точками на плоскости'); 
    Writeln('Введите координаты двух точек:');
    Write('x1= '); Readln(x1); 
    Write('y1= '); Readln(y1); 
    Write('x2= '); Readln(x2); 
    Write('y2 ='); Readln(y2); 
    d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); 
    Writeln('d= ',d:6:2); 
    Writeln('нажмите Enter для завершения работы программы'); 
    Readln; 
end.
Вопрос: Печать названия десятичных цифр
Категория: школьный раздел
Ответы:
program DICITS;
var  DIGIT: integer;
begin
writeln ('Введите цифру');
readln (DIGIT);
case DIGIT of
0: writeln ('нуль');
1: writeln ('один');
..................
9: writeln ('девять');
else writeln ('это не цифра');
end;
end.
Вопрос: Печать номера квартала года
Категория: школьный раздел
Ответы:
program NUMKVART;
var  MESIATZ: 1..12;
begin
write ('Введите номер месяца года – '); 
read (MESIATZ);
case MESIATZ of
1, 2, 3: writeln ('Первый квартал');
4, 5, 6: writeln ('Второй квартал');
7, 8, 9: writeln ('Третий квартал');
10, 11, 12: writeln ('Четвертый квартал');
end;
end.
Вопрос: Даны числа A, B (A > 1). Получить все степени  числа  A, меньшие числа B.
Категория: школьный раздел
Ответы:
program STEPENI;
var A, B, C: real;
begin
readln (A, B); C := A;
while C < B do
    begin 
writeln (C);
C := C*A;
     end;
end.
Вопрос: Печать отсчета цифр при старте
Категория: школьный раздел
Ответы:
program START;
var SEC: integer;
begin
writeln ('До старта осталось ...');
for SEC := 10 downto 1 do
writeln (SEC:4);
writeln ('ноль');  writeln ('Старт !!')
end.
Вопрос: Подсчет числа часов рабочей недели
Категория: школьный раздел
Ответы:
program WORKTIME;
type DAYS = (MO, TU, WE, TH, FR, SA, SU);
var DEN: DAYS; WT: integer;
begin
WT := 0;
for DEN := MO to SA do
if DEN <> SA then WT := WT + 8
else WT := WT + 7; writeln (WT);
end.
Вопрос: На промежутке от 1 до M найти все числа Армстронга. Натуральное число из n цифр называется числом Армстронга, если сумма его цифр, возведенных в степень n, равна самому числу
Категория: школьный раздел
Ответы:
PROGRAM Primer_1; 
var i,k,s,p,n,M: Integer;
begin
  Write('Введите M '); Readln(M);
     for i:=1 to M do
     begin
       s:=0; k:=i; n:=0;
       while k<>0 do
          begin k:=k div 10; n:=n+1 end;
       k:=i;
       While k<>0 do
          begin p:=k mod 10; k:=k div 10;
                if p<>0 then s:=s+ Round(Exp(n*Ln(p)))
          end;
       if s=i then Writeln(i);
     end;
   Readln;
end.
Вопрос: Нарисовать три вертикальных квадрата 3 × 3 с помощью символа «*».
Категория: школьный раздел
Ответы:
program RISUNOK;
procedure KVADRAT;
begin
writeln ('***');
writeln ('*  *');
writeln ('***');
end;
begin
clrscr; KVADRAT;
writeln; KVADRAT;
writeln; KVADRAT;
end.
Вопрос: Вычислить площадь четырехугольника ABCD
Категория: школьный раздел
Ответы:
program PLOCHAD_1;
var AB, BC, CD, AD, BD, S1, S, a, b, c, p:real;
procedure GERON_1;
begin 
p := (a + b + c)/2;
S := sqrt (p*(p - a)*(p - b)*(p - c));
end;
begin {*ОСНОВНАЯ ПРОГРАММА*}
read (AB, BC, CD, AD, AC);
a := AB; b := AD; c := BD; GERON_1; S1:= S;
a := BC; b := CD; c := BD; GERON_1; S1:= S1 + S;
write (S1);
end.
Вопрос: Нарисовать квадрат с произвольной длиной стороны в левом верхнем углу (длина стороны задается с клавиатуры).
Категория: школьный раздел
Ответы:
program RISUNOK_2;
var I: integer;
procedure KVADRAT (N: integer);
var J, K: integer;
begin
for J := 1 to N do write ('*'); writeln;
for J := 1 to N - 2 do
begin
write ('*'); for K := 1 to N - 2 do write (' ');
writeln ('*');
end;
for J := 1 to N do write ('*');
end;
begin { Основная программа }
write ('Введите длину стороны – ');
readln (I);  clrscr; KVADRAT (I);
end.
Вопрос: Вычислить площадь четырехугольника с применением процедуры с параметрами-значениями
Категория: школьный раздел
Ответы:
program PLOCHAD_2;
var AB, BC, CD, AD, AC, S1, S: real;
procedure GERON_2 (a, b, c: real);
var P: real;
begin
P := (a + b + c)/2;  S := sqrt (P*(P - a)*(P - b)*(P - c));
end;
begin {*ОСНОВНАЯ ПРОГРАММА*}
read (AB, BC, CD, AD, AC); GERON_2(AB, BC, AC); S1:= S;
GERON_2 (AD, AC, CD); write ('S = ', S1 + S)
end.
Вопрос: Вычисление площади четырехугольника
Категория: школьный раздел
Ответы:
program PLOCHAD_3;
var AB, BC, CD, AD, AC, S1, S2, a, b, c: real;
procedure GERON_3 (var S: real);
var P: real;
begin
P := (a + b + c)/2; S := sqrt (P*(P - a)*(P - b)*(P - c));
end;
begin { Основная программа }
read (AB, BC, CD, AD, AC);
a := AB; b := BC; c := AC; GERON_3 (S1);
a := AD; b := AC; c := CD; GERON_3 (S2);
write ('S = ', S1 + S2)
end.
Вопрос: Вычислить значения функции f(x)=2 cos x+3, при x={1; 4; 7,5; 20}. Вывести результаты в два столбца: в первом - значения x, во втором - значения f(x). Вычисления провести двумя способами: с помощью функции и процедуры.
Категория: школьный раздел
Ответы:
program proc_1;
function f (x: Real):Real;
begin
    f:=2*cos(x)+3
end;
procedure proc_f (x: Real; var fx: real);
begin
    fx:=2*cos(x)+3
end;
 var x, fx: real;
begin
  Writeln('с использованием процедуры:');
  Writeln('    x      f(x)');
  x:=1;   proc_f (x,fx); Writeln (x:6:2, fx:6:2);
  x:=4;   proc_f (x,fx); Writeln (x:6:2, fx:6:2);
  x:=7.5; proc_f (x,fx); Writeln (x:6:2, fx:6:2);
  x:=20;  proc_f (x,fx); Writeln (x:6:2, fx:6:2);
  Readln;
  Writeln('с использованием функции:');
  Writeln('    x   f(x)');
  Writeln(1:6, f (1):6:2);
  Writeln(4:6, f (4):6:2);
  Writeln(7.5:6:2, f (7.5):6:2);
  Writeln(20:6, f (20):6:2);
       Readln;
end.
Вопрос: Создать рекурсивную функцию поиска i-го члена последовательности, заданной рекуррентной формулой A1=const1, A2=const2, Ai=3Ai-2-Ai-1. Вывести через пробел значения рекурсивной функции при значениях аргумента от 1 до 10 включительно
Категория: школьный раздел
Ответы:
program proc_2;
function A (i: Integer): Integer;
begin
   if i=1 then A:=1 else
    if i=2 then A:=3 else А:=3*A(i-2)-A(i-1)
end;
  var i: Integer;
begin
   for i:=1 to 10 do Write (A(i),' ');
   Readln
end.
Вопрос: Присваивание переменной с именем месяца числа дней этого месяца.
Категория: школьный раздел
Ответы:
program NUMBRDAY;
type MONAT = (JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG,
SEP, OKT, NOV, DEC);
var DAY : array [MONAT] of 28..31; T : MONAT;
begin
for T := JAN to DEC do
case T of
JAN, MAR, MAY, JUL, AUG, OKT, DEC: DAY [T] := 31;
APR, JUN, SEP, NOV: DAY [T] := 30;
FEB : DAY [T] := 28;
end;
end.
Вопрос: Сумма элементов таблицы над верхней диагональю
Категория: школьный раздел
Ответы:
program SUMMA;
const M = 10; {число строк таблицы}
N = 10; {число столбцов таблицы}
type LINE = array [1..n] of integer;
TAB = array [1..m] of LINE;
var s, i, j:integer; MAS: TAB;
procedure VVODMASSIV (var MAS: TAB);
begin
¦ for i := 1 to M do
¦   for j := 1 to N do
¦     readln (MAS [i][j]);
end;
procedure VIVODMASSIV (var MAS:TAB);
begin
¦ for i := 1 to M do
¦  begin
¦   ¦ for j := 1 to N do
¦   ¦ write (MAS [i][j]:4,' '); writeln;
¦   end;
end;
                    procedure OBRABOTKA (MAS: TAB; var SUM: integer);
begin
¦ SUM := 0;
¦ for i := 1 to M do
¦   for j := 1 to N do
¦     if j > i then SUM := SUM + MAS [i][j];
end;
begin
|  VVODMASSIV (MAS);
|  writeln ('исходный массив'); VIVODMASSIV (MAS);
|  OBRABOTKA (MAS, s); writeln;
|  writeln ('сумма элементов = ',s);
end.
Вопрос: Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных элементов, вычислить сумму положительных элементов.
Категория: школьный раздел
Ответы:
program massiv_1;
const N=10;
type mas=array [1..N] of Real;

procedure Vvodmas(var A:mas);
  var i:Integer;
begin
  for i:=1  to N do A[i]:=-50+Random(101)+random;
end;

procedure Vivodmas(A:mas);
  var i:Integer;
begin
  for i:=1 to N do  Write(A[i]:8:2);
  Writeln
end;

function Summa(A:mas):real;
  var i: Integer; s:real;
begin
  s:=0;
  for i:=1 to N do if A[i]>0 then s:=s+A[i];
  Summa:=s;
end;

var A: mas;
begin
  Randomize; Vvodmas(A);
  Writeln('Исходный массив:'); Vivodmas(A);
  Writeln('Ответ: ', Summa(A):0:2);
  Readln
end.
Вопрос: В двумерном массиве, состоящем из целочисленных элементов, в каждом столбце поменять местами наибольший по модулю и последний не принадлежащий интервалу (a, b) элементы массива
Категория: школьный раздел
Ответы:
const n=10; m=7;
type mas=array [1..n,1..m] of Integer;

procedure Vvodmas(var D:mas);
  var i,j:Integer;
begin
for i:=1  to n do
  for j:=1  to m do
    D[i,j]:=-50+Random(101);
end;

procedure Vivodmas(D:mas);
  var i,j:Integer;
begin
  for i:=1 to n do
    begin
      for j:=1  to m do Write(D[i,j]:4);
      Writeln;
    end;
end;

procedure Obmen(a,b: real; var D:mas);
  var i,j,p,n1,n2,max: Integer;
begin
  for j:=1  to m do
    begin
      n1:=1; max:=abs(D[1,j]);{считаем первый элемент столбца наибольшим по модулю}
      for i:=2 to n do
        if abs(D[i,j])>max then  {обнаружен больший элемент}
          begin n1:=i; max:=abs(D[i,j]) end;

      i:=n; {перебираем элементы столбца, начиная с последнего}
      while (i>=1)and (D[i,j]>a)and(D[i,j]<b) do i:=i-1;
      n2:=i;
      if n2<>0 then {если элемент, не принадлежащий интервалу (a,b), был найден}
        begin
          p:=D[n1,j]; D[n1,j]:=D[n2,j]; D[n2,j]:=p; {обмен значений}
        end;
    end;
end;

var D: mas; a,b:Real;
begin
  Randomize; Vvodmas(D);
  Writeln('Исходный массив:'); Vivodmas(D);
  Write('Введите через пробел концы интервала (a,b): '); Readln(a,b);
  Obmen(a,b,D);
  Writeln('Ответ:'); Vivodmas(D);
  Readln
end.
Вопрос: С клавиатуры последовательно вводятся символы. Признаком конца ввода является точка. Составить программу выбрасывания групп символов, расположенных между скобками ( ). Сами скобки тоже выбрасываются.
Категория: школьный раздел
Ответы:
program SKOBKI;
var c: char; i: integer;
begin
¦  i := 0; read (c);
¦  while c <> '.' do
¦    begin
¦     ¦  if c = '(' then i : = 1
¦     ¦           else if c = ')' then i := 0
¦     ¦               else if i = 0 then write (c);
¦     ¦  read (c);
¦     ¦     end;
end.
Вопрос: Программа вывода последовательности букв a, ab, abc, ..., abc ... xyz.
Категория: школьный раздел
Ответы:
program SUITE;
var c, d: char;
begin
for c := 'a' to 'z' do
begin
  for d := 'a' to c do write (d);
  writeln (' ');
end;
end.
Вопрос: Социальная сфера управления становится относительно самостоятельной, многоструктурной и массовой с точки зрения как объекта воздействия, так и его субъекта, появляется особый тип управленца, а именно
(*ответ*) рыночный
 менеджеральный
 социальный
 универсальный
 организационный
Социальная(ое) _ - это система специальных мер в виде содействия, поддержки и услуг, оказываемых отдельным лицам и группам населения социальной службой для преодоления или смягчения жизненных трудностей
(*ответ*) помощь
 защита
 общение
 поддержка
 обслуживание
 реабилитация
Социальная(ое) _ - это специальные меры, направленные на поддержание условий, достаточных для существования «слабых» социальных групп, отдельных семей, личностей, испытывающих нужду в процессе своей жизнедеятельности
(*ответ*) поддержка
 защита
 помощь
 обеспечение
 реабилитация
 обслуживание
Стимулы – источник пробуждения человеческой энергии; они могут быть
(*ответ*) внешними и внутренними
(*ответ*) позитивными и негативными
(*ответ*) объективными и субъективными
(*ответ*) материальными и духовными
(*ответ*) осознанными и неосознанными
 реальными и нереальными
Стимулы – источник пробуждения человеческой энергии; создавая систему стимулирования, т.е. представления жизненных гарантий по результатам действий в соответствии с поставленной целью, можно эффективно управлять
(*ответ*) социальными процессами
(*ответ*) социальным поведением
 социальными представлениями
 социальными ожиданиями
Стратегия развития тесно связана с _ доктриной и концепцией
(*ответ*) общественной
 генеральной
 глобальной
 перспективной
 управленческой
 парадигмальной
Субъект управления, осваивая различные области профессиональных знаний и опираясь на их многообразие, интегрирует, объединяет многознание в принятых управленческих
(*ответ*) решениях
(*ответ*) проектах
(*ответ*) программах
(*ответ*) концепциях
 стратегиях
 тактиках
Суть закона доминирования глобальной цели в развитии социальной системы заключается в том, что каждая социальная система состоит из ряда подсистем, а именно
(*ответ*) экономической
(*ответ*) политической
(*ответ*) технической
(*ответ*) организационной
(*ответ*) социальной
(*ответ*) духовно-культурной
 производственной
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Изменение порядка слов в строке
Категория: школьный раздел
Ответы:
program REVERSE;
var OLD_LINE, NEW_LINE: string [50];
PROBEL: integer; WORD: string [50];
begin
NEW_LINE := ''; readln (OLD_LINE);
OLD_LINE := concat (OLD_LINE,' ');
while OLD_LINE <> '' do
begin
PROBEL := pos (' ', OLD_LINE);
word := copy (OLD_LINE, 1, PROBEL);
NEW_LINE := concat (WORD, NEW_LINE);
Delete (OLD_LINE, 1, PROBEL);
end;
writeln (NEW_LINE)
end.
Вопрос: Составить программу обработки данной строки, позволяющую выписать все знаки сравнения и все скобки, сохранив их последовательность.
Категория: школьный раздел
Ответы:
program string_1;
const srav_sk='<>=(){}[]';
var s:String; i:Integer;
begin
   Writeln('Введите строку:'); Readln(s);
   for i:=1  to Length(s) do
      if Pos(s[i],srav_sk)<>0 then  write(s[i]);
   Readln
end.
Вопрос: Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Составить программу обработки данной строки, выводящую через запятую слова четной длины, которые при обмене местами левой и правой половины дают то же слово (например, папа, мама, канкан).
Категория: школьный раздел
Ответы:
program string_2;
var s, slovo, otv:String; ns, ks, i, m: Integer;
begin
   Writeln ('Введите строку:'); Readln(s);
   i:=1; ns:=1; otv:=''; s:=s+' ';
   while i<=Length(s) do
   begin
      while (i<=Length(s)) and (s[i]<>' ') do i:=i+1; {ищем очередной пробел}
      ks:=i; slovo:=Copy(s, ns, ks-ns); {выделяем слово}
      m:=Length(slovo) div 2; {половина длины слова}
      if (Length(slovo) mod 2=0) and (Copy(slovo,1,m)=Copy(slovo,m+1,m))
         {если слово имеет четную длину}
          then otv:= otv+slovo+ ','; {добавляем слово к ответу}
      while (i<=Length(s)) and (s[i]=' ') do i:=i+1; {пропускаем пробелы}
      ns:=i; {начало следующего слова}
   end;
   Delete(otv, Length(otv), 1); {удаляем лишнюю запятую в конце}
   Writeln(otv);
   Readln
end.
Вопрос: Составить программу построения узора, образованного пересечением двух семейств расходящихся отрезков, у которых k1 и k2  - расстояния между отрезками слева и справа, а h – смещение-наклон вниз (вверх) всего семейства
Категория: школьный раздел
Ответы:
Uses crt, graf;
Var gD, gM, i, k1, k2, h: integer;
Begin
k1:= 8; k2 := 3; h:=110; gD:= Detect;
InutGraf (gD, gM, ‘’); setcolor(red);
For i:= 1 to (480 div k1) do
Begin 
for i :=1 to n do line (0, i*k1, 640, i*k2+h):
for i :=1 to n do line (0, i*k2+h, 640, i*k1);
end;
readln; Closegraph
end.
Вопрос: Построить график функции  y = x^2  на отрезке [a, b].
Категория: школьный раздел
Ответы:
Uses crt, graf;
Var gD, gM, n: integer;
        a, b: real;
function f (x: real) : real;
Begin
      f:= x*x
End; 
Procedure graf (x0, x1, y0, y1, n: word; a, b: real);
Var h, m, x, t1, t2 :real;
       i, u, v, xv, yv: word;
begin
h:= (b-a)/n;  {Нахождение шага разбиения}
m:= abs(f(a));  {Поиск значения функции в левом конце отрезка}
t1:= (x1-x0) / (b-a); t2:= (y1-y0) / (2*m);
{Построение координатных осей}
setfillstyle (1,15); bar( x0-5, y0-5, x1+5, y1+5);
xv:= round(x0-a*t1); yv:= round((t0+y1) / 2);
line (x0, yv, x1, yv);
{Установка текущего курсора в начало графика}
Moveto (x0, yv-round (f (a)*t2);
{Построение графика}
Setcolor (3);
For i:= 1 to n do
    Begin
x:= a+i*h; u:= x0+round ( (x-a)*t1);
v:= yv:= round (f (x)*t2); lineto (u, v);
end; 
end;    {Конец процедуры}
begin
clrscr; readln (a, b, n);  gD:= Detect;
Initgraph (gD, gM, ‘’);
graf (100, 500, 50, 300, n, a, b); 
    Readln; Closegraph
end.
Вопрос: Вращение Земли вокруг Солнца
Категория: школьный раздел
Ответы:
Uses Crt, GRAPH;
Var i, d: integer; 
fi, h, ; real;
x0, y0, r1: integer; 
begin 
d := detect;
InitGRAPH (d, i, 'G/Work/t7');                        {Инициализация графики}
SetColor (Red); 
Circle (320, 240, 10);                    {Рисование окружности красного цвета}
SetFillStyle (1, Red);
FloodFill (320, 240, Red);               {Закраска круга (Солнца)  красным цветом}
R1:= 100; h:=5; fi:= 0;
Repeat
X0:= round (r1*sin (fi)) +320;
Y0:= round (r1*cos(fi)) +240;
fi:= fi+2*pi*h/360;
Putpixel (x0, y0, 15);
delay(50);
Putpixel ((x0, y0, 0);
Until keypressed;
CloseGraph
end.
Вопрос: Найти действительные корни квадратного уравнения или вывести сообщение об их отсутствии.
Категория: школьный раздел
Ответы:
Program Korni;
uses crt;
var a,b,c,d,x1,x1:real;
begin
clrscr;
writeln (‘Введите коэффициенты квадратного уравнения’);
write(‘A=’); readln(a);
write(‘B=’); readln(b);
write(‘C=’); readln(c);
d:=sqr(b)-4*a*c;
if d<0 then writeln(‘Уравнение не имеет действительных корней’)
else
begin
if d=0 then
begin
x1:=-b/(2*a);
writeln(‘X=’,x1:6:2);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(‘X1=’,x1:6:2,‘ X2=’,x2:6:2);
end;
end;
readln;
Вопрос: Для функций, заданных графически, определить значение y при заданном значении x:
Категория: школьный раздел
Ответы:
Program Func;
uses crt;
var x,y:real;
begin
clrscr;
write('Введите x='); readln(x);
if x<-1 then y:=0
else
if (x>=-1)and(x<=0) then y:=x+1 else y:=1;
writeln('Значение y=',y:7:2);
readln;
end.
Вопрос: Составить программу, проверяющую, выполняется ли условие существования треугольника. Если треугольник существует, то найти его периметр и площадь
Категория: школьный раздел
Ответы:
Program Treug1;
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
writeln('Введите длины сторон треугольника (a,b,c)');
readln(a);
readln(b);
readln(c);
if (a+b>c) and (a+c>b) and (c+b>a) then
begin
p:=a+b+c;
s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
writeln('Периметр - ',p:10:2);
writeln('Площадь - ',s:10:2);
end
else writeln('Треугольник не существует');
readln;
end.
Вопрос: Вычислить сумму S целых чисел значения которых больше или равны 0.
S=x1+x2+x3+x4+x5 или S=Σxi, где i принимает значения 1,2,3,4,5.
S ≥ 0, т.к. xi ≥ 0.
Категория: школьный раздел
Ответы:
1.    начало
2.    S:=0
3.    «Введите пять целых положительных чисел»
4.    i:=1
5.    читаем xi
6.    S:=S+xi
7.    i:=i+1
8.    пока i≤5 п.4 иначе п.9
9.    Вывод S
10.    конец
Вопрос: Суть разработанных А. Файолем принципов управления сводится к следующему
(*ответ*) разделение труда
(*ответ*) авторитет и ответственность власти, единство руководства, единство распорядительства
(*ответ*) дисциплина, порядок, подчинение частного интереса общему
(*ответ*) вознаграждение за труд, справедливость, доброта и порядочность
(*ответ*) баланс между централизацией и децентрализацией
(*ответ*) устойчивость персонала
(*ответ*) инициатива
 координация управленцев одного уровня и рабочих
Суть рекомендаций по теории _ состоит в требовании решать текущую, конкретную организационно-управленческую проблему в зависимости от целей организации и сложившихся конкретных условий, в которых эта цель должна быть достигнута
(*ответ*) системного подхода
 управления
 социального управления
 менеджмента
 организации
Технология _ соединяет три роли в преподавателе: аналитик (совместно с обучаемыми), консультант и собственно преподаватель
(*ответ*) “диагностика – консалтинг – обучение”
 инновационная
 традиционная
 комбинированная
 комплексная
 сквозная
Укажите соответствие понятий и определений
 подразделение < организационная единица, имеющая определенные задачи, выполняющая функции (обязанности) и наделенная для этого необходимыми правами и ответственностью
 звено < 1) синоним понятия «подразделение»; 2) отдельный работник (должность)
 ступень < совокупность ряда подразделений и звеньев (должностей), находящихся на определенном уровне системы (первичном, среднем, высшем)
 орган < 1) подразделение; 2) организационная единица управления отраслевого, межотраслевого или территориального уровней
Укажите соответствие понятий и определений
 организационная структура < внутреннее строение субъекта и объекта деятельности
 формальная структура < понятие, обозначающее состав, соподчиненность и должностные взаимосвязи подразделений, звеньев без учета конкретных работников, их психологических особенностей, возраста, опыта и др.
 неформальная структура < система человеческих отношении, взаимосвязей, взаимовлиянии, взаимодействий, которая свойственна данной оргструктуре
 организационная форма < специфическое воздействие на реально сложившуюся ситуацию
Укажите соответствие понятий и определений
 принципы социального управления < правила, основные положения и нормы поведения, которыми руководствуются органы управления в социальных условиях, сложившихся в обществе
 функции управления < разнообразные виды работ, которые необходимо выполнять в процессе управления каким-либо объектом (прогнозирование, планирование, организация, координация, учет и контроль)
 метод управления < совокупность приемов и способов воздействия на управляемый объект для достижения поставленных целей (от греч. methodos - способ достижения какой-либо цели)
 методы социального нормирования < позволяют упорядочить социальные отношения между социальными группами, коллективами и отдельными работниками путем введения различных социальных норм
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Введите пять целых положительных чисел
Категория: школьный раздел
Ответы:
program primer;
var i:byte;
S,x:word;
begin
S:=0;
writeln('Введите пять целых положительных чисел');
For i=1 to 5 do
begin
readln(x);
S:=S+x;
end;
writeln(S);
readln;
end.
Вопрос: Политические реформы в последней трети 19 века
Категория: школьный раздел
Ответы:
1)    Отмена крепостного права
2)    Земская реформа 1864 г
3)    Судебная реформа 1864 г
4)    Городская реформа 1870 г
5)    Военная реформа 1874 г

РеформыПрогрессивный, либеральный характер Феодальные, крепостнические пережиткиКрестьянская  (1861 г.)Переломный момент, грань между феодализмом и капитализмом, создала условия для утверждения капиталистического уклада в качестве господствующего.Сохранила крепостнические  пережитки; крестьяне не получили землю в полную собственность, должны были платить выкуп, потеряли часть земли (отрезки).Земская (1864 г.)Вокруг земств сгруппировалась наиболее энергичная, демократическая интеллигенция. Деятельность была направлена на улучшение положения народных масс.Сословность выборов; ограничен круг вопросов, решаемых земствами.Городская (1870 г.)Способствовала  приобщению широких слоев населения к управлению , что служило предпосылкой для формирования в России гражданского общество и правового государства.Деятельность городского самоуправления контролировалась государством.Земская (1864 г.)Вокруг земств сгруппировалась наиболее энергичная, демократическая интеллигенция. Деятельность была направлена на улучшение положения народных масс.Сословность выборов; ограничен круг вопросов, решаемых земствами.Городская (1870 г.)Способствовала  приобщению широких слоев населения к управлению , что служило предпосылкой для формирования в России гражданского общество и правового государства.Деятельность городского самоуправления контролировалась государством.
Вопрос: Какое количество теплоты выделится при кристаллизации и охлаждении 1,5 кг цинка до температуры 20 градусов
Категория: школьный раздел
Ответы:
t1=420 гр. С
t2= 20  гр. С
c=400 Дж/ кг  гр. С
m=1.5
λ = 112000 Дж/ кг 
Решение:
Q=Q1+Q2
Q1= λ m -  кристаллизация   цинка 
Q2 =cm(t2-t1) -  охлаждение   цинка 
Q= λ m + cm(t2-t1)
Q=112000 Дж/ кг  * 1.5 кг + 400 Дж/кг * 1.5 кг * ( 20  гр. С - 420 гр. С) - (20 гр. С - 420 гр. С) = 168000 Дж +240000 Дж = 408000 Дж = 408 Кдж
Ответ: 408 кДж
Вопрос: Периметр треугольника образованы средними линиями данного треугольника равен 12 см найдите периметр данного треугольника
Категория: школьный раздел
Ответы:
решение задания по геометрии
Вопрос: Могут ли средней линии треугольника быть равными 4см 7см и 11см чертеж
Категория: школьный раздел
Ответы:
решение задания по геометрии
Вопрос: На дифракционную решетку с периодом 0,01мм направлен монохроматический луч. Первый дифракционный максимум получен на экране смещенным на 3 см от первоначального направления луча. Определить длину волны монохроматического луча, если расстояние между экраном и решеткой равно 70см.
Категория: школьный раздел
Ответы:
Вопрос: Между какими длинами в сантиметры включены длины отрезков Запиши ответ в виде двойного неравенства 1см 7 мм 9 см 2 мм 49 мм 68 мм 43 мм 51 мм
Категория: школьный раздел
Ответы:
Вопрос: Расположите события в хронологической последовательности.
А.Образование Хазарского каганата
Б.Образование Скифского царства
В.Образование Тюркского каганата
Г.Возникновение Волжской Булгарии
Категория: школьный раздел
Ответы:
ответ Б—>В—>А—>Г
Вопрос: Первый в мире летчик-космонавт Ю. А. Гагарин на космическом корабле двигался по круговой орбите, среднее расстояние которой от поверхности Земли составляло 251 км. Определите период обращения корабля вокруг Земли.
Категория: школьный раздел
Ответы:
решение
Ma = m*w^2 * (R+h) = m * (2*pi/T) ^2 * (R+h) = m*M*G / (R+h) ^2
T=2*п*√((R+h) ^3 / (M*G)) = 2*п*√ ((6,37*10^6+251000) ^3 / (5,972E24*6,67*10^ (-11))) сек = 5363,428 сек = 1 час 29 минут 23 сек
ответ:  1 час 29 минут 23 сек

ответ к заданию по физике
Вопрос: 5. Инвестиционный проект-это
 некоторая задача с определенными исходными данными и требуемыми результатами, обуславливающими способ ее решения
 (*ответ к тесту*) системно ограниченный и законченный комплекс мероприятий, документов и работ, финансовым 
результатом которого является прибыль, материально-вещественным результатом — новые или реконструируемые основные фонды, или приобретение и использование финансовых инструментов или нематериальных активов с последующим получением дохода
6. Когда считается, что портфель иммунизирован
 (*ответ к тесту*) когда приобретены бескупонные облигации, чей срок погашения равен запланированному холдинговому 
периоду, а их суммарная номинальная стоимость в момент погашения соответствует цели инвестора
 (*ответ к тесту*) ни в одном из этих случаев
 когда дюрация портфеля равняется запланированному инвестором холдинговому периоду
7. Выберите основные черты , присущие фьючерсам
 все перечисленное
 (*ответ к тесту*) контракт может быть перепродан другому инвестору
 (*ответ к тесту*) сделки совершаются на специально предназначенных для этого биржах
 (*ответ к тесту*) торговля регулируется специальными органами
 (*ответ к тесту*) при совершении сделок используется маржа
 цены изменяются вне всяких ограничений
 (*ответ к тесту*) они стандартезированы с точки зрения контрактной спецификации- типа, количества и качества товара, даты 
поставки товара
8. Хеджирование-это
 способ формирования портфеля
 (*ответ к тесту*) страхование сделки от возможных потерь
 расформирование портфеля
Категория: экономические
Ответы:
Правильные вопросы выделены по тесту
тест уже прошел свою проверку
надеюсь на плюс 1 голос к ответу
Вопрос: Элементы каждой строки матрицы а 1;2 1;2 переставить в порядке возрастания их значений
Написать алгоритм и блок-схему
Категория: школьный раздел
Ответы:
Program SORT_1;   
Const n=10;
Var 
    Mas  : array[1..n] of integer;
    i , c, p   : integer;
Begin
    Writeln(‘Введите значения элементов массива’);
    For i:=i to n do
    begin
    Write(‘mas[‘,i,’]=’);
    Readln(mas[i]);
         end;
    repeat
    p:=0;
    for i:=1 to n-1 do
        if mas[i]> mas[i+1] then
        begin   
            c:=mas[i];
            mas[i]:=mas[i+1];
            mas[i+1]:=c;
            p:=1;
        end;
    until p=0;
    writeln(‘Упорядоченный  по возрастанию массив:’);
    for i:=1 to n do writeln(‘mas[‘,i,’]=’, mas[i]);
End.
Вопрос: Вспомни какое произведение называется басней
Категория: школьный раздел
Ответы:
Басня – это литературное произведение нравоучительного характера

басня - это короткое произведение или  рассказ в стихах или прозе с прямо сформулированным моральным выводом, придающим рассказу аллегорический смысл.
Вопрос: Объясните, каким образом каждая из следующих сделок генерирует две записи в счетах платёжного баланса.
а) Американец покупает у итальянской фирмы «Оливетти» пишущую машинку и оплачивает покупку чеком в 100 долларов.
б) «Оливетти» поместила чек в американский банк.
в) «Оливетти» поместила чек в свой итальянский банк.
г) Итальянский банк предоставляет заем в 100 долл. итальянской фирме, которая использует его для покупки персональных компьютеров в США
Категория: экономические
Ответы:
Вопрос: Треугольник со сторонами а, b, с является равносторонним.
Категория: школьный раздел
Ответы:
uses crt;
var a,b,c:integer;
BEGIN
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if (a=b) and (b=c) and (c=a) then
  writeln('Treugolnic RAVNOSTORONNIJ')
    else
  writeln('Treugolnic NE RAVNOSTORONNIJ');
END.

program alexq;
uses crt;
var
 a,b,c: real;
begin
 clrscr;
 write('Vvedite A,B,C: ');
 readln(a,b,c);
 if (a=b) and (b=c) then writeln('Treugolnik ravnostoronniy')
 else writeln('Treugolnik ne ravnostoronniy');
 readkey;
end.
Вопрос: Целое число N является четным двузначным числом (программа на Паскаль)
Категория: школьный раздел
Ответы:
program pr1;
uses crt;
var n:integer;
begin
clrscr;
writeln('Введите двухзначное четное число n ');
readln(n);
if (n mod 2=0) and (n div 100=0) and (n div 10>0) then
 write('Это четное двухзначное число')
 else
 write('Это число не является четным двухзначным числом');
readkey;
end.
Вопрос: Треугольник со сторонами а, b, с является равнобедренным
Категория: школьный раздел
Ответы:
program alexq;
uses crt;
var
 a,b,c: real;
begin
 clrscr;
 write('Vvedite A,B,C: ');
 readln(a,b,c);
 if (a=b) or (a=c) or (b=c) then writeln('Treugolnik ravnobedrenniy')
 else writeln('Treugolnik ne ravnobedrenniy');
 readkey;
end.
Вопрос: Управление социальной работой выполняет как общие, так и конкретные функции; общими, независимо от уровня субъекта, его компетенции, являются функции
(*ответ*) прогнозирование
(*ответ*) планирование (целеполагание)
(*ответ*) организация
(*ответ*) координация
(*ответ*) стимулирование (мотивация)
(*ответ*) маркетинг
(*ответ*) учёт и контроль
 деятельность руководителей
Управление социальной работой имеет соответствующие организационные структуры
(*ответ*) Министерство труда и социального развития Российской Федерации
(*ответ*) комитеты (управления) социальной защиты (помощи)
(*ответ*) территориальные службы
(*ответ*) центры социального обслуживания
 муниципальные службы
 учреждения социального обслуживания
Управление социальной работой организуется на _ уровнях
(*ответ*) федеральном
(*ответ*) региональном
(*ответ*) локальном
 муниципальном
 республиканском
Управление, будучи субъективной деятельностью разных субъектов управления (государственный орган, общественный институт, отдельный человек), несет на себе печать
(*ответ*) специфики субъективности в виде общей и управленческой культуры (ее наличия или отсутствия)
(*ответ*) специфики традиций и исторического опыта
(*ответ*) специфики интересов, потребностей, установок, позиций той или иной личности, являющейся лидером
 специфики линейного развития
 специфики управления линейными системами
Управленческая деятельность в основе своей посвящена поиску, отбору, переработке и анализу социальной информации, которая и лежит в основе _ управленческой деятельности
(*ответ*) целесообразной
 качественной
 эффективной
 надлежащей
 организованной
Управленческая деятельность должна адекватно
(*ответ*) отражать социальную действительность
(*ответ*) вскрывать имеющиеся ресурсы
(*ответ*) находить средства и резервы
(*ответ*) выбирать способы совершенствования социальных систем и перевода их на новый уровень
 осмысливать управленческую информацию
 систематизировать управленческую информацию
 хранить управленческую информацию
Управленческая деятельность состоит из набора (совокупности) выработанных историческим опытом, научным познанием и талантом людей
(*ответ*) навыков человека в сфере управления
(*ответ*) умений человека в сфере управления
(*ответ*) способов действий человека в сфере управления
(*ответ*) средств действий человека в сфере управления
(*ответ*) целесообразных поступков и действий человека в сфере управления
 стимулов действий человека в сфере управления
 мотивов целесообразных поступков и действий человека в сфере управления
Управленческая наука в России начала развиваться в XVII в. и преимущественно в рамках теории государственного управления. В развитии этой системы важную роль сыграл А.Л. Ордин- Нащокин, сделавший попытку введения городского _ в западных приграничных городах. Он считается одним из первых русских управленцев, поставившим вопрос о развитии не только стратегического, но и тактического управления.
(*ответ*) самоуправления
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)