nyuuzyou/soloby huggingface dataset:
Вопрос: Дана квадратная матрица порядка n, заполненная целыми числами.  Получить одномерный массив, элементами которого являются первый  положительный элемент соответствующей строки матрицы
Категория: школьный раздел
Ответы:
USES Crt;
 LABEL   M1;
 CONST   N=5;
 VAR
   H:ARRAY[0..N,0..N] OF INTEGER;   B:ARRAY[0..N] OF INTEGER;
   I,J:BYTE;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   WriteLn;
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO N DO Begin
       H[I,J]:=Random(25)-10;  Write(H[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   WriteLn(' Значения первых положительных элементов соответствующих строк');
   WriteLn;
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO N DO
       IF H[I,J]>0 THEN Begin  B[I]:=H[I,J];   GOTO M1;   End;
     M1: Write(B[I]:3);
   End;
 END.
Вопрос: Дан двумерный массив размерностью NхM, заполненная целыми числами.  Получить одномерный массив, элементами которого являются сумма первого  и последнего элементов соответствующих строк двумерного массива
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=5;   M=7;
 VAR
   A:ARRAY[0..N,0..M] OF INTEGER;   B:ARRAY[0..N] OF INTEGER;
   I,J:BYTE;
 BEGIN
   ClrScr;   Randomize;
{ Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной          матрицы }
   WriteLn(' Значения элементов двумерного массива');
   WriteLn;
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO M DO Begin
       A[I,J]:=Random(30);    Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   WriteLn(' Cумма первого и последнего элементов соответствующих строк');
   WriteLn;
   FOR I:=1 TO N DO Begin
     B[I]:=A[I,1]+A[I,M];     Write(B[I]:3);
   End;
 END.
Вопрос: Дан двумерный массив размерностью 5х6, заполненный целыми числами.  Сформировать одномерный массив каждый элемент которого равен  произведению четных положительных элементов соответствующего столбца
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   M:ARRAY[0..5,0..6] OF INTEGER;   F:ARRAY[0..6] OF INTEGER;
   I,J:BYTE;   P:LongInt;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO 5 DO Begin
     FOR J:=1 TO 6 DO Begin
       M[I,J]:=Random(20)-5;   Write(M[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { Формирование одномерного массива}
   WriteLn(' Значения элементов одномерного массива');
   FOR J:=1 TO 6 DO Begin
     P:=1;
     FOR I:=1 TO 5 DO
       IF (M[I,J]>0) AND (M[I,J] mod 2 =0) THEN P:=P*M[I,J];
     IF P=1 THEN F[J]:=0 ELSE F[J]:=P;
     Write(F[J]:4);
   End;
 END.
Вопрос: Дан двумерный массив размерностью 4х6, заполненный целыми числами.  Сформировать одномерный массив, каждый элемент которого равен  количеству элементов соответствующей строки, больших данного числа N
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   A:ARRAY[0..4,0..6] OF INTEGER;   G:ARRAY[0..6] OF INTEGER;
   I,J,K:BYTE;   N:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO 4 DO Begin
     FOR J:=1 TO 6 DO Begin
       A[I,J]:=Random(45);    Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   Write(' Введите значение числа  ');   ReadLn(N);
   { Формирование одномерного массива}
   WriteLn(' Значения элементов одномерного массива');
   FOR I:=1 TO 4 DO Begin
     K:=0;
     FOR J:=1 TO 6 DO
       IF A[I,J] > N THEN K:=K+1;
     G[I]:=K;     Write(G[I]:2);
   End;
 END.
Вопрос: Дан двумерный массив размерностью 4х5, заполненный целыми числами.  Сформировать одномерный массив, каждый элемент которого равен  количеству отрицательных элементов, кратных 3 или 5, соответствующей  строки
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   A:ARRAY[0..4,0..5] OF INTEGER;   G:ARRAY[0..6] OF INTEGER;
   I,J,K:BYTE;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO 4 DO Begin
     FOR J:=1 TO 5 DO Begin
       A[I,J]:=Random(45)-20;   Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { Формирование одномерного массива}
   WriteLn(' Значения элементов одномерного массива');
   FOR I:=1 TO 4 DO Begin
     K:=0;
     FOR J:=1 TO 5 DO
       IF (A[I,J] < 0) AND ((A[I,J] mod 3=0) OR (A[I,J] mod 5 =0)) THEN K:=K+1;
     G[I]:=K;   Write(G[I]:2);
   End;
 END.
Вопрос: В соревнованиях по плаванию принимали участие 5 спортсменов. Соревнования  состояли из 3 заплывов. Результаты заплывов записали в таблицу размерностью  3х5. Получить одномерный массив размером 3, элементами которого будут  лучшие результаты в каждом из заплывов
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   RZ:ARRAY[0..3,0..5] OF INTEGER; LR:ARRAY[0..3] OF INTEGER;
   I,J:BYTE;
BEGIN
   ClrScr;   WriteLn;
   { Заполнение таблицы }
   FOR I:=1 TO 3 DO Begin
     WriteLn(' Введите результаты ',I,' заплыва');
     FOR J:=1 TO 5 DO Begin
       Write(J,' участник - ');   ReadLn(RZ[I,J]);
     End;
   End;   WriteLn;
   { Определение лучшего результата в каждом из заплывов }
   FOR I:=1 TO 3 DO Begin
     LR[I]:=RZ[I,1];
     FOR J:=2 TO 5 DO
       IF RZ[I,J]<LR[I] THEN LR[I]:=RZ[I,J];
     WriteLn(' Лучший результат ',I,' заплыва = ',LR[I]);
   End;
 END.
Вопрос: Дан двумерный массив размерностью 5х6, заполненный целыми числами.  Сформировать одномерный массив, каждый элемент которого равен  наибольшему по модулю элементу соответствующего столбца
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   M:ARRAY[0..5,0..6] OF INTEGER;   MAX:ARRAY[0..6] OF INTEGER;
   I,J:BYTE;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO 5 DO Begin
     FOR J:=1 TO 6 DO Begin
       M[I,J]:=Random(20)-8;  Write(M[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { Формирование одномерного массива}
   WriteLn(' Значения элементов одномерного массива');
   FOR J:=1 TO 6 DO Begin
     MAX[J]:=ABS(M[1,J]);
     FOR I:=2 TO 5 DO
       IF ABS(M[I,J]) > MAX[J] THEN MAX[J]:=ABS(M[I,J]);
     Write(MAX[J]:3);
   End;
 END.
Вопрос: Дан двумерный массив размерностью NхM, заполненный случайным образом.  Определить, есть ли в данном массиве строка, в которой имеется два  элемента массива, имеющие наибольшее значение
Категория: школьный раздел
Ответы:
USES Crt;
 CONST   N=6;   M=8;
 VAR
   A:ARRAY[0..N,0..M] OF INTEGER;
   I,J,K,FL:BYTE;   MAX:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO M DO Begin
       A[I,J]:=Random(20);   Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { Нахождение наибольшего значения }
   MAX:=A[1,1];
   FOR I:=1 TO N DO
     FOR J:=1 TO M DO
       IF A[I,J]>MAX THEN MAX:=A[I,J];
   WriteLn(' Максимальное значение = ',MAX);
   { Нахождение строки, в которой два элемента имеют наибольшее значение }
   FL:=0;
   FOR I:=1 TO N DO Begin
     K:=0;
     FOR J:=1 TO M DO
       IF A[I,J]=MAX THEN Inc(K);
     IF K=2 THEN Begin WriteLn('В ',I,' строке два элемента имеют наибольшее значение');                                      
                                      FL:=1;
     End;
   End;
   IF FL=0 THEN WriteLn(' Нет строк, в которых два элемента имеют наибольшее значение');
 END.
Вопрос: Дан двумерный массив размерностью 8х7, заполненный случайным образом.
•    Поменять местами средние строки с первой и последней.
•    Вставить между средними строками первую строку.
•    Удалить все столбцы, в которых первый элемент больше последнего.
•    Заменить все элементы первых трех столбцов на их квадраты
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   A:ARRAY[0..8,0..7] OF INTEGER;   A1:ARRAY[0..9,0..7] OF INTEGER;
   A2:ARRAY[0..8,0..7] OF INTEGER;
   I,J,K:BYTE;   PP:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO 8 DO Begin
     FOR J:=1 TO 7 DO Begin
       A[I,J]:=Random(15);   Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { 1. Поменять местами строки }
   WriteLn(' Средние строки поменялись местами с первой и последней');
   FOR J:=1 TO 7 DO Begin
     PP:=A[1,J]; A[1,J]:=A[4,J]; A[4,J]:=PP;
     PP:=A[5,J]; A[5,J]:=A[8,J]; A[8,J]:=PP;
   End;
   { Вывод измененного массива }
   FOR I:=1 TO 8 DO Begin
     FOR J:=1 TO 7 DO
       Write(A[I,J]:3);
      WriteLn;
   End;   ReadLn;
   { 2. Вставка }
   WriteLn(' Первая строка вставлена между средними строками');
   K:=0;
   FOR I:=1 TO 8 DO Begin
     Inc(K);
     FOR J:=1 TO 7 DO Begin
       A1[K,J]:=A[I,J];  Write(A1[K,J]:3);
     End;    WriteLn;
     IF I=4 THEN Begin
                   Inc(K);
                   FOR J:=1 TO 7 DO Begin
                     A1[K,J]:=A[1,J];   Write(A1[K,J]:3);
                   End;    WriteLn;
     End;
   End;   Writeln;   ReadLn;
   { 3. Удаление}
   WriteLn(' Столбцы, в которых первый элемент > последнего, удалены');
   K:=0;
   FOR J:=1 TO 7 DO
     IF A[1,J]<=A[8,J] THEN Begin
                              Inc(K);
                              FOR I:=1 TO 8 DO
                                A2[I,K]:=A[I,J];
     End;
   { Вывод измененного массива }
   FOR I:=1 TO 8 DO Begin
     FOR J:=1 TO K DO
       Write(A2[I,J]:3);
     WriteLn;
   End;   ReadLn;
   { 4. Замена }
   WriteLn(' Элементы первых трех столбцов заменены на их квадраты');
   FOR I:=1 TO 8 DO Begin
     FOR J:=1 TO 7 DO Begin
       IF J<=3 THEN A[I,J]:=Sqr(A[I,J]);   Write(A[I,J]:4);
     End;     WriteLn;
   End;
 End.
Вопрос: Подсчитать сколько букв «о» в тексте
Категория: школьный раздел
Ответы:
USES Crt;
VAR
A: STRING [255];  KB N, I: BYTE;
BEGIN
  ClrScr;
  Write('Введите тест ');  ReadLn(A);
  N:=Length(A);
  KB:=0;
  FOR I:=1 TO N DO
      IF (A[I]=’o’) OR (A[I]=’O’) THEN KB:=KB+1;
   WritLn(‘ Количество букв «о» =’,KB);
END.
Вопрос: Определить среднюю длину слова в тексте
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  A: STRING [240];  KS, KB, N, I: INTEGER;
BEGIN
  ClrScr;
  Write('Введите тест ');  ReadLn(A);
  N:=Length(A);
  KS:=0; KB:=0;
  FOR I:=1 TO N DO
    IF (A[I]=' ') OR (A[I]=',') OR (A[I]='.') THEN KS:=KS+1 ELSE KB:=KB+1;
  IF (A[N]<>' ') AND (A[N]<>'.') AND (A[N]<>',') THEN KS:=KS+1;
  WriteLn('Средняя длина слова = ',KB/KS:3:0);
END.
Вопрос: Подсчитать, сколько слов в тексте начинается на букву «а» (слова разделены пробелом).
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  A: STRING [240];  KS, N, I: INTEGER;
BEGIN
  ClrScr;
  Write('Введите тест ');  ReadLn(A);
  N:=Length(A);
  IF A[1]=’А’ THEN KS:=1 ELSE KS:=0;
  FOR I:=2 THEN N
     IF  (COPY(A,I,2) =’ а’) OR (COPY(A,I,2)=’ А’ THEN KS:=KS+1;
  WriteLn(‘Количество слов, начинающихся на букву «а» =’,KS);
END.
Вопрос: Удалить лишние пробелы между словами, оставив по одному
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  S:STRING[255];  I,K: INTEGER;
BEGIN
  ClrScr;
  Write('Введите текст   ');  ReadLn(S);
  I:=1;
  While(I<=Length(s)) DO Begin
     IF Copy(S,I,2)='  ' THEN Begin  
                                                 Delete (S,I,1); 
                                                 I:=I-1;   
                                               End;
     I:=I+1;
  End;
  Write(S);
END.
Вопрос: В тексте удалить все слова, заканчивающиеся на букву "e".
Категория: школьный раздел
Ответы:
USES Crt;
VAR
S: STRING [250];  PS,N,I: INTEGER;
BEGIN
  ClrScr;
  Write('Введите текст  ');   ReadLn(S);
   S:= ' '+S+' ';
   FOR I:=1 TO Length(S) DO Begin
     IF S[I]=' ' THEN Begin
                                  PS:=I-1;
                                  IF S[PS]='E' THEN WHILE(S[PS]<>' ')  DO Begin
                                                                     Delete(S,PS,1);   PS:=PS-1;
                                                                  End;
      End;
   End;
   WriteLn(‘ Измененный текст:’);   Write(S);
END.
Вопрос: Из текста удалить каждое второе слово. Слова разделены пробелом
Категория: школьный раздел
Ответы:
USES Crt;
Type  MAS= STRING [20];
VAR
  A : MAS;
  I,K: INTEGER;
BEGIN
 ClrScr;
 Write('Введите текст  ');  ReadLn(A);
 i:=1;
 While (I<=Length(A)) DO Begin
    IF A[I]=' ' THEN  Begin
                                  K:=I+1;
                                 While (A[K]<>' ') DO  Delete(A,K,1);
                                  I:=I+1;
    End;
    I:=I+1;
  End;
 WriteLn(‘Измененный текст:’); Write(A);
END.
Вопрос: Менеджмент, как одно из направлений науки об управлении в условиях рыночных отношений, возник и развивался в контексте экономических наук в _ в.
(*ответ*) начале ХХ
 конце XIX
 середине ХХ
 конце ХХ
Метод _ - функционирование и развитие системы в настоящем приспосабливается, ориентируется на некоторое будущее состояние, содержащееся в цели
(*ответ*) адаптационный
 оптимизационный
 контролируемости
 осведомляющей информации
 корректирующий
 конкретизации
Метод _ означает, что цель должна содержать вполне осязаемые, ощутимые результаты, которых предполагается достичь, - экономические, социальные, научно-технические и др.
(*ответ*) конкретизации
 контролируемости
 осведомляющей информации
 адаптационный
 оптимизационный
 коррегирующий
Метод _ при определении целей эффективен и точен, поскольку он предусматривает количественное выражение целей
(*ответ*) оптимизационный
 адаптационный
 конкретизации
 контролируемости
 осведомляющей информации
 коррегирующий
Методы управления имеют определенные особенности
(*ответ*) направлены на достижение целей и задач
(*ответ*) практическим действиям предшествуют анализ, оценка конкретных условий, ситуации
(*ответ*) выбираются из возможных способов по критерию “Какой метод или образ действия результативнее, эффективнее, целесообразнее?”
 выбираются из возможных способов по критерию “Какой метод действия результативнее, эффективнее, целесообразнее?”
 выбираются из возможных способов по критерию “Какой образ действия результативнее, эффективнее, целесообразнее?”
Миллионы людей, работу которых необходимо организовать, скоординировать и контролировать, работают прямо или косвенно в учреждениях социальной защиты. Поэтому социальное управление социальной работой – проблема государственного значения. И в то же время оно является составной, неотъемлемой частью _ работы
(*ответ*) социальной
Мысль об особой роли управляющих в корпорации и миссии менеджмента в обществе высказал в своей книге “Концепции корпорации” (1946) ведущий теоретик менеджмента
(*ответ*) П. Дракер
 Т. Парсонс
 Дж. Бэрнхейм
 Дж. Гэлбрейт
 П. Сорокин
На вершине «древа целей» находится главная цель; она расчленяется на отдельные составляющие – на промежуточные цели (цели - средства), от реализации которых _ её достижение
(*ответ*) зависит
 в заметной степени зависит
 в большой степени зависит
 в решающей степени зависит
На первой стадии управленческой деятельности ставится цель: определить параметры _ функционирования и развития объекта или модель его будущего состояния
(*ответ*) оптимального
 исчерпывающего
 эффективного
 результативного
 комплексного
 регулярного
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: В текст вставить символ пробел после каждого имеющегося   символа пробел
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  A : STRING [255];  I: INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите текст');  ReadLn(A);
  I:=1;
  While (I<=Length(A)) DO Begin
     IF A[I]=' ' THEN Begin  Insert (' ',A,I);   I:=I+1;  End;
     I:=I+1;
   End;
  WriteLn(‘Измененный текст:’);  WriteLn(A);
END.
Вопрос: Третье предложение в тексте заключить в скобки
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  A: STRING [200]; I,K,F: INTEGER;
BEGIN
 ClrScr;
 Write('Введите текст  '); ReadLn(A);
 I:=1; K:=0; F:=0;
 While (I<=Length(A)) DO Begin
    IF A[I]='.' THEN  K:=K+1;
    IF (K=2) AND (F=0) THEN Begin  Insert('(',A,I+1);  F:=1;  End;
    IF (K=3) AND (F=1) THEN Begin  Insert(')',A,I+1);  F:=0;  End;
    I:=I+1;
  End;
  WriteLn(‘Измененный текст:’);  WriteLn(A);
END.
Вопрос: Исправить ошибки в тексте. Во все слова "длиный"   вставить букву "н".
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  S : STRING [50];  PZ, I: INTEGER;
BEGIN
  ClrScr;
  WriteLn(‘Введите текст’);  ReadLn(S);
  FOR I:=1 TO Length(S) DO
    IF Copy(S,I,6)='длиный' THEN Insert('н',S,I+3);
  WriteLn(‘Измененный текст:’); WriteLn(S);
END.
Вопрос: Определить, является введенное слово "перевертышем" (потоп, казак).
Категория: школьный раздел
Ответы:
USES Crt;
 VAR
   A, B : STRING [20];  I, N: BYTE;
BEGIN
  ClrScr;
  Write('Введите слово  ');  ReadLn(A);
  N:=Length(A);
  FOR I:=N DownTo 1 DO
      B:=B+A[I];
   IF B=A THEN Write('Перевертыш') ELSE Write('Не перевертыш');
END.
Вопрос: Подсчитать количество слов, в которых буква "а" входит  не менее двух раз. (слова разделены пробелом).
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  A : STRING [255];  KS, KB, I, N : INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите текст ');  ReadLn(A);
  A:=A+' ';
  N:=Length(A);
  KB:=0; KS:=0;  I:=1;
  While (I<=N) DO Begin
     While (A[I]<>' ') DO Begin
        IF (A[I]='a') OR (A[I]='A') THEN KB:=KB+1;
        I:=I+1;
     End;
     IF KB>2 THEN KS:=KS+1;
     KB:=0;
     I:=I+1;
  End;
  WriteLn(' Количество слов, в которых буква "а" встречается не менее двух раз =  ',ks)
END.
Вопрос: Найти слово в тексте, содержащее наибольшее количество букв "м".
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  A, D : STRING [255];  I, KB, MKB, K, MK, NP, MNP : INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите текст');  ReadLn(A);
  I:=1; KB:=0; MKB:=0; NP:=1;
  While(I<=Length(A)) DO Begin
      While(A[I]<>' ') DO Begin
          IF A[I]='м' THEN KB:=KB+1;
          K:=K+1;  I:=I+1;
      End;
      IF MKB<KB THEN Begin  MKB:=KB;  MNP:=NP;  MK:=K;  End;
      NP:=I+1; KB:=0; K:=0;
      I:=I+1;
  End;
  D:=Copy(A,MNP,MK);
  WriteLn('Слово с максимальным количеством букв "м" -  ',D);
END.
Вопрос: Проверить правильность написания круглых скобок
Категория: школьный раздел
Ответы:
Var
   A:String[50];
   K,I,N:Integer;
BEGIN
   WriteLn(‘Введите тест’);
   ReadLn(A);
   N:=Length(A);
   FOR I:=1 TO N DO Begin
      IF A[I]=’(‘ THEN=N+1;
      IF A[I]=’)‘ THEN N:=N-1;
      IF N<0 THEN Begin WriteLn(‘Неверно’); Break; End;
   End;
   IF N=0 THEN WriteLn(‘Верно’) ELSE WriteLn(‘Неверно’);            
END.
Вопрос: Построить различные геометрические фигуры
Категория: школьный раздел
Ответы:
Uses Graph, Crt;
VAR
  Gd,Gm : INTEGER;
  Radius, I, Width, K : INTEGER;
  Y0, Y1, Y2, X1, X2 : INTEGER;
  Pattern : FillPatternType;
  Points : ARRAY[1..6] OF PointType;
BEGIN   Gd:=vga; Gm:=1;
 { Инициализация графического режима }
  InitGraph(Gd,Gm,'C:\tp7\bgi');  IF GraphResult<>0 THEN HALT(1);   SetBkColor(0); SetColor(2);   {Цвет фона и изображения}   I:=0;   FOR Radius:=1 TO 5 DO  Begin {Построение окружностей }       SetColor(Radius+4);
      Circle(150,150,Radius*25);
      Inc(I);  IF I=4 THEN I:=0;
  End;
  ReadLn;
  ClearDevice; SetBkColor(1); SetColor(5);  SetLineStyle(0,0,3);
  Ellipse(130,130,0,360,30,50); {эллипс}
  ReadLn;
  ClearDevice; SetColor(4);  Ellipse(130,130,0,180,100,70); { эллиптическая дуга}
  ReadLn;
  ClearDevice;  K:=4;
  FOR Radius:=1 TO 5 DO Begin
     SetColor(K);
     Arc(300,100,0,90,Radius*20); {дуги}
     Inc(K);
  end;
  ReadLn;
  ClearDevice; Width:=20; SetColor(1); SetBkColor(11);
  FOR I:=1 TO 5 DO Begin
      SetFillStyle(7,I+4);                {определение стиля заполнения}
      Bar(I*Width,I*20,Succ(I)*Width,200); {построение прямоугольников}
  end;
  SetFillStyle(5,12);  Bar(150,150,250,250);
  ReadLn;
  {Построение параллелепипеда с верхней плоскостью}
  SetFillStyle(8,4);  ClearDevice;
  Y1:=100; Y2:=200; X1:=230; X2:=300;
   SetLineStyle(3,0,3);   {Определение стиля линии}
   Bar3d(x1,y1,x2,y2,10,topon);
   ReadLn;
   {Построение параллелепипеда без верхней плоскости}
   ClearDevice; 
   SetLineStyle(0,0,1); setfillstyle(11,1);   bar3d(x1,y1,x2,y2,10,topoff);
   ReadLn;
    {Пользовательский шаблон заполнения}
    CleardDevice; SetColor(6);  SetLineStyle(0,0,3); { Стиль линии}
    {заполнение массива}
    Pattern[1]:=31;   Pattern[2]:=62; Pattern[3]:=124; Pattern[4]:=248;
    Pattern[5]:=124; Pattern[6]:=62; Pattern[7]:=31;   Pattern[8]:=0;
    SetFillPattern(pattern,12);     {Задание шаблона пользователя}
    Bar(10,10,GetMaxX Div 2,GetMaxY Div 2);
    Rectangle(10,10,GetMaxX Div 2,GetMaxY Div 2);
    ReadLn;
    {Построение закрашенного сектора эллипса}
    ClearDevice; SetBkColor(3); SetColor(4); SetFillStyle(7,14);
    Sector(100,100,0,90,50,70);
    ReadLn;
    ClearDevice; SetFillStyle(1,14); {Построение закрашенного сектора круга}
    Pieslice(150,150,90,360,100);
    ReadLn;
    {Построение эллипса, заполненного текущим цветом}
    ClearDevice; SetFillStyle(6,13); SetLineStyle(3,0,1);
    FillEllipse(200,200,50,100);
    ReadLn;
    {Построение закрашенного многоугольника}
    ClearDevice;  Randomize; SetLineStyle(0,0,1); SetFillStyle(11,1);
    {Определение случайных координат вершин}
    FOR I:=1 TO 5 DO Begin
       Points[I].X:=Random(GetMaxX); Points[I].Y:=Random(GetMaxY);
    End;
    Points[6].X:=Points[1].Y; Points[6].Y:=Points[1].Y;
    Fillpoly(6,Points);
    ReadLn;
    CloseGraph;
 END.
Вопрос: Написать систему ниспадающего меню, которая в зависимости от выбора пользователя выводит на экран: красит экран в белый и черный цвет; термометр, у которого ртутный столбик  поднимается; термометр, у которого ртутный  столбик опускается
Категория: школьный раздел
Ответы:
USES Graph, Crt;
VAR
  Dr, Md, M, X, Y, I : INTEGER;  Ch:CHAR;
BEGIN
  Dr:=Detect;
  InitGraph(Dr,Md,'c:\tp7\bgi');  IF GraphResult<>0 then HALT(1);
  REPEAT
     SetBkColor(1); SetColor(6); SetTextStyle(0,0,2);
     ClearDevice;
    { Вывод меню }
    OutTextXY(50,140,'Пробел - Красим экран');
    OutTextXY(50,170,'Стрелка вверх - Столбик поднимается');
    OutTextXY(50,200,'Стрелка вниз - Столбик опускается');
    OutTextXY(50,230,'ESC - Выход');
    REPEAT
       Ch:=ReadKey; {разветвление программы по нажатию клавиши}
            CASE Ch OF
         #32:Begin { Красим экран }
                  ClearDevice;
                  SetBkColor(0); SetFillStyle(1,15);
                  Bar(0,0,GetMaxX div 2,GetMaxY);
                  SetFillStyle(1,0);
                  Bar(GetMaxX div 2,0,GetMaxX,GetMaxY);
                  OutTextXY(70,GetMaxY-25,'Нажмите DEL');
               End;
        #72:Begin { Ртутный столбик поднимается }
                 ClearDevice;  SetLineStyle(0,0,1); SetBkColor(1); SetColor(4);
                 X:=GetMaxX div 2; Y:=GetMaxY div 2;
                 Rectangle(X,Y,X+40,GetMaxY-20);
                 FOR I:=1 TO120 DO Begin
                    SetColor(4); SetLineStyle(0,0,3);
                    Line(X,GetMaxY-20-I,X+40,GetMaxY-20-i);
                    Delay(250);
                 End;
                 OutTextXY(70,GetMaxY-25,'Нажмите DEL');
              End;
       #80:Begin { Ртутный столбик опускается }
                ClearDevice; SetLineStyle(0,0,1); SetBkColor(1); SetColor(4);
                X:=GetMaxX div 2; Y:=GetMaxY div 2;
                Rectangle(x,y,x+40,GetMaxY-20);
                SetFillStyle(1,4);
                Bar(x,GetMaxY-140,x+40,GetMaxY-20);
                FOR I:=1 TO 117 DO Begin
                   SetColor(1);  SetLineStyle(0,0,3);
                   Line(x+1,GetMaxY-140+i,x+39,GetMaxY-140+i);
                   Delay(250);
                End;
                SetColor(4); OutTextXY(70,GetMaxY-25,'Нажмите DEL');
             End;
  End;
  UNTIL (Ch=#83) or (Ch=#27);
  UNTIL (Ch=#27);
  CloseGraph;
END.
Вопрос: Написать систему ниспадающего меню, которая в зависимости от выбора     пользователя выводит на экран день и ночь
Категория: школьный раздел
Ответы:
USES Crt,Graph;
LABEL  Ex,New;
VAR  Gd,Gm : INTEGER;  Av: CHAR;
PROCEDURE DAY; {процедура-солнечное затмение}
VAR  X,Y,X1,Y1 : INTEGER;  U: REAL;
BEGIN
  ClearDevice;  SetFillStyle(1,14);  SetColor(14);
  X:=GetMaxX DIV 2;  Y:=GetMaxY DIV 2;
  FillEllipse(X,Y,50,50); {солнце}
  FOR Gm:=1 TO 150 DO Begin
     U:=Random(359);
     X1:=Trunc(Random (200)*COS(U))+X;   Y1:= Trunc (Random (200)*SIN(U))+Y;
     Line(X,Y,X1,Y1); {солнечные лучи}
  End;
  SetFillStyle(1,8);  SetColor(8);
  FillEllipse(X-15,Y,50,50); {тень луны}
  REPEAT
  UNTIL KeyPressed; {задержка до нажатия любой клавиши}
END;
PROCEDURE NOCH; {процедура - лунная ночь со звездами}
 VAR  R,X,Y,I:INTEGER;
BEGIN
  ClearDevice;  SetFillStyle (1,15); SetColor (15);
  FOR I:=1 TO 50 DO Begin
     R:= Random (2);
     PutPixel(Random (GetMaxX), Random (GetMaxY),15);
     PutPixel(Random (GetMaxX), Random (GetMaxY),15);
     FillEllipse(Random (GetMaxX), Random (GetMaxY),R,R);
  End;
  SetFillStyle (1,15); SetColor (15); FillEllipse (200,100,50,50);
  SetFillStyle (1,0);   SetColor (0);   FillEllipse (180,100,50,50); {луна}
  REPEAT
  UNTIL KeyPressed; {задержка до нажатия любой клавиши}
END;
BEGIN{основная программа}
  Gd:=Detect;  InitGraph(Gd,Gm,'C:\tp7\BGI');
  WHILE true DO Begin
      SetFillStyle (1,1);  FloodFill(10,10,1); SetFillStyle (1,0);
      Bar(215,115,415,365);
      SetColor (5); SetFillStyle (1,5);
      Bar(200,100,400,350);{меню}
      SetTextStyle(7,0,5); SetColor (0);
      OutTextXY(237,117,'MENU'); OutTextXY (237,287,'EXIT');
      SetColor (12); OutTextXY (235,115,'MENU');
      SetColor (4); OutTextXY (235,285,'EXIT');
      SetTextStyle (0,0,3); SetColor (0);
      OutTextXY (227,207,'D:ДЕНЬ'); OutTextXY (227,247,'N:НОЧЬ');
      SetColor (3); OutTextXY (225,205,'D:ДЕНЬ'); OutTextXY (225,245,'N:НОЧЬ');
      SetColor (15); SetTextStyle (0,0,2);
      OutTextXY (100,450,'использовать клавиши D,N,ESC'); 
      Av:=ReadKey;
      CASE Av OF {разветвление программы по нажатию клавиши}
         'D','d' :    DAY;
         'N','n' :    NOCH;
         CHR(27) : GOTO Ex;
      End;
  End;
  Ex: CloseGraph;
END.
Вопрос: Наиболее длительным был первый период развития управления – начиная с 9-7 тысячелетия до н.э. примерно до _ в.
(*ответ*) XVIII
 XVII
 XVI
 XIX
Наиболее общие законы и принципы управления рассматривает наука
(*ответ*) «кибернетика»
 «социальное управление»
 «менеджмент»
 «философия»
 «социология»
Наиболее разработанным методом целеполагания является
(*ответ*) система формирования «древа целей»
 коррегирующий метод
 оптимизационный метод
 адаптационный метод
 метод конкретизации
 метод контролируемости
Наиболее разработанным методом целеполагания является система процедур «древа целей», где разработка целей осуществляется путём последовательной декомпозиции главной цели на подцели по определённым правилам. Демократизация прекращается при достижении некоторого элементарного уровня, когда формулировка подцели позволяет приступить к её
(*ответ*) реализации
Наивысшая эффективность от автоматизации информационных технологий достигается при создании единой городской информационной системы; при этом возможны два подхода, а именно
(*ответ*) внедрение единого программного обеспечения для решения функциональных задач социальной работы на всех уровнях
(*ответ*) создание единого информационного пространства с унифицированными входными и выходными реквизитами
 разработка автоматизированных комплексов задач, реализующих функции учета и организации ресурсов
 внедрение системы классификации нормативно-справочной информации
Наряду с общей стратегией развития общества, есть частные стратегии, а именно
(*ответ*) экономическая
(*ответ*) социальная
(*ответ*) финансовая
(*ответ*) кредитно-денежная
(*ответ*) правовая
(*ответ*) духовно-культурная
 этическая
 производственная
Наука социального управления до сих пор не имеет самостоятельного статуса, не включена в перечень ни научных специальностей, ни специальностей, изучаемых в средних и высших учебных заведениях, что затрудняет формирование профессиональных кадров управления, способных адекватно действовать в условиях кризиса, неопределённости, находить оптимальные _ решения
(*ответ*) управленческие
Необходимо развивать автоматизированные информационные системы по проблемам социально-бытового обслуживания; это создание единого городского информационного банка данных оценочно-диагностических карт семей, что позволит
(*ответ*) определять потребности в различных видах социальной помощи и вести учет ее предоставления
(*ответ*) анализировать тенденции в социальной сфере и прогнозировать потребности города
(*ответ*) разрабатывать комплексные адресные программы, а также автоматизированные комплексы задач, реализующих функции учета и организации ресурсов
 внедрять единое программное обеспечение для решения функциональных задач социальной работы на всех уровнях
 создать единое информационное пространство с унифицированными входными и выходными реквизитами
Необходимой частью управления как науки являются _, представляющие собой инструменты получения научных знаний, научной информации
(*ответ*) методики
 программы
 планы
 стратегии
 тактики
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Построить график функции
Категория: школьный раздел
Ответы:
USES Crt, Graph;
 VAR
  Gd, Gm : INTEGER;   X0, Y0 : INTEGER;   { Начало осей координат }
  X, Y : INTEGER;  Mx, My, I : INTEGER;
  A, B, H, F : REAL;
BEGIN
 WriteLn('Введите интервал и шаг изменения функции');  ReadLn(A,B,H);
 WriteLn('Введите масштаб по X и Y');  ReadLn(Mx,My);
 Gd:=Detect; Gm:=1;
 InitGraph(Gd,Gm,'c:\tp7\bgi');  IF GraphResult<>0 THEN HALT(1);
 { Построение осей координат }
 X0:=GetMaxX div 2; Y0:=GetMaxY div 2;
 Line(10,Y0,GetMaxX,Y0); Line(X0,10,X0,GetMaxY);
 { Построение стрелок }
 Line(X0,10,X0-10,20);  Line(X0,10,X0+10,20);
 Line(GetMaxX,Y0,GetMaxX-10,Y0-10);
 Line(GetMaxX,Y0,GetMaxX-10,Y0+10);
 OutTextXY(X0-25,10,'X');  OutTextXY(GetMaxX-20,Y0+20,'Y');
 { Разметка осей координат }
 I:=X0;
 REPEAT
    I:=I+Mx;
    PutPixel(I,Y0-1,15);   PutPixel(2*X0-I,Y0-1,15);
 UNTIL I>GetMaxX;
 I:=Y0;
 REPEAT
    I:=I+My;
    PutPixel(X0+1,I,15);   PutPixel(X0+1,2*Y0-I,15);
 UNTIL I>GetMaxY;
 { Построение графика функции }
 REPEAT
    F:=A*A; { функция }
    X:=Trunc(X0+A*Mx);    Y:=Trunc(Y0-F*My);
    PutPixel(X,Y,15);    A:=A+H;
 UNTIL A>B;
 ReadLn;
END.
Вопрос: Построить круговую диаграмму
Категория: школьный раздел
Ответы:
USES  Сrt,Graph;
VAR
  Gd, Gm : INTEGER;   I,N,S,C: INTEGER;    M : ARRAY[1..10] OF INTEGER;
   Nk, Kk : INTEGER;   P:REAL;
BEGIN
 WriteLn('Введите количество значений');  ReadLn(N);  S:=0;
 FOR I:=1 TO N DO Begin
    Writeln('Введите ',I,' значение');    ReadLn(M[I]);
    S:=S+M[I];
 end;
 P:=360/S; {приходится радиан на 1% }
 Gd:=Detect; Gm:=1;
 InitGraph(Gd,Gm,'c:\tp7\bgi');  IF GraphResult<>0 THEN HALT(1);
 S:=0; C:=1;
 FOR I:=1 TO N DO Begin
    Nk:=Trunc(P*S);   { Начальный угол }
    Kk:=Trunc(P*(S+M[I]));  { Конечный угол }
    SetFillStyle(1,C);     PieSlice(GetMaxX div 2,GetMaxY div 2,nk,kk,100);
    S:=S+m[i];
    C:=C+1;    IF C=14 THEN C:=1; { Изменение цвета } 
  End;
  ReadLn;
  CloseGraph;
END.
Вопрос: Построить  пятиконечную звезду
Категория: школьный раздел
Ответы:
USES Crt,Graph;
VAR
 Gd,Gm : INETEGER;  X,Y,Rb,Rm : INETEGER;  Points: ARRAY [1..11] OF PointType; {Массив вершин }
 I, A : REAL;
BEGIN
  Gd:=Detect; Gm:=1;
  InitGraph(Gd,Gm,'c:\tp7\bgi');  IF GraphResult<>0 THEN HALT(1);
  Rb:=150; Rm:=70;
  ClearDevice; SetBkColor(3);  SetColor(4); SetFillStyle(1,4);
  I:=1;  A:=0.94;  { Определение координат вершин звезды }
 WHILE (I<=10) DO Begin
    X:=Trunc(Rb*COS(A))+300;   Points[I].X:=X;
    Y:=Trunc(Rb*SIN(A))+200;    Points[I].Y:=Y;
    Inc(I);    A:=A+0.628;
    X:=Trunc(Rm*COS(A))+300;  Points[I].X:=X;
    Y:=Trunc(RM*SIN(A))+200;   Points[I].Y:=Y;
    Inc(I);    A:=A+0.628;
  End;
  { Связь координат первой и последней вершин }
  Points[11].X:=Points[1].X; Points[11].Y:=Points[1].Y;
  FillPoly(11,Points); { Построение звезды }
  ReadLn;
  CloseGraph; END.
Вопрос: Построить объект, который передвигается с помощью навигационных клавиш
Категория: школьный раздел
Ответы:
USES Crt,Graph; VAR   Gd,Gm : INTEGER;  Av : CHAR;   X,Y,I,T,Z,K : INTEGER;  St : STRING[225];
BEGIN
  Gd:=Detect;  InitGraph(Gd,Gm,'C:\tp7\BGI');
  ClearDevice;
  X:=GetMaxX DIV 2;  Y:=GetMaxY DIV 2;
  T:=0;  I:=0;  K:=500;
  REPEAT
    SetColor(15);
    { Построение объекта }
    Line(X,Y-10,X,Y-3); Line (X,Y+10,X,Y+3);     Line (X-10,Y,X-3,Y); Line (X+10,Y,X+3,Y);
    Circle(X,Y,7);
    Av:=ReadDKey;
    { Изменение координат при нажатии клавиши }
    IF CHR(75)=Av THEN T:=-10;   IF CHR(77)=Av THEN T:=10;
    IF CHR(72)=Av THEN I:=-10;    IF CHR(80)=Av THEN I:=10;
    SetColor (0);     Line (X,Y-10,X,Y-3); Line (X,Y+10,X,Y+3);
    Line (X-10,Y,X-3,Y); Line (X+10,Y,X+3,Y);
    Circle(X,Y,7);
    X:=X+T;    Y:=Y+I;    I:=0;    T:=0;
    IF X>(GetMaxX-2) THEN X:=GetMaxX-2;    IF X<2 THEN X:=2;
    IF Y>(GetMaxY-2) THEN Y:=GetMaxY-2;    IF Y<2 THEN Y:=2;
  UNTIL ORD(Av)=27; { Пока не нажата клавиша Esc }
END.
Вопрос: Построить орнамент
Категория: школьный раздел
Ответы:
USES Crt, Graph;
VAR
  Gd,Gm : INTEGER;  Av : CHAR;   X1, Y1, X, Y : INTEGER;  U, H : REAL;
BEGIN
  Gd:=Detect;  InitGraph(Gd,Gm,'C:\tp7\BGI');
  SetFillStyle(1,14);  SetBkColor(5);  SetColor(14);   X:=GetMaxX DIV 2;  Y:=GetMaxY DIV 2;
  U:=2*Pi;
  While U>=0 DO Begin
      X1:=Trunc(100*COS(U))+X;   Y1:=Tunc(100*SIN(U))+Y;
      Circle(X1,Y1,3);       Delay(1000);    U:=U-0.1;
  End;
  H:=-5;
  While H<=45 DO Begin
      X:=Trunc(100+H*10);    Y:=Trunc(100-SIN(H)*10);
      Circle(X,Y,2);
      Delay(500);     H:=H+0.5;
  End;
  H:=-5;
  While H<=45 DO Begin
      X:=Trunc(100+H*10);     Y:=Trunc(380-SIN(H)*10);
      Circle(X,Y,2);
      Delay(500);     H:=H+0.5;
  End;
  ReadLn;
END.
Вопрос: Составить программу вычисления периметра и площади прямоугольника
Категория: школьный раздел
Ответы:
Program z1;
Var a, b, p, s: real;
Begin
     Writeln(‘b’);
      Readln (a, b);
      P:= 2*(a+b);
      S:=a*b;
      Writeln (p, s);
      Readln;
      End.
Вопрос: Вычислить сторону ромба, если известны две его диагонали
Категория: школьный раздел
Ответы:
Program z2;
Var a, d1, d2: real;
Begin 
Writeln (‘Введи диагонали’);
Readln (d1, d2);
a:= sqrt(sqr(d1/2)+ sqr(d2/2));
Writeln (‘a=’,a);
Readln;
End.
Вопрос: Вычислить длину окружности и площадь круга по заданному радиусу
Категория: школьный раздел
Ответы:
Program z1;
Var r, c, s: real;
Begin 
Writeln (‘Введи радиус’);
Readln (r);
c:= 2*3,14*r;
s:=3,14*sqr(r);
Writeln (‘c=’,c);
Writeln (‘s=’,s);
Readln;
End.
Вопрос: Вычислить площадь прямоугольного треугольника по его катетам.
Категория: школьный раздел
Ответы:
Program z2;
Var a,b,s: real;
Begin 
Writeln (‘Введи катеты’);
Readln (a,b);
s:=1/2*a*b;
Writeln (‘s=’,s);
Readln;
End.
Вопрос: Найти целую часть и остаток от деления а на b. а и b целые числа
Категория: школьный раздел
Ответы:
Program z5;
Var a, b, c, d: Integer;
Begin 
Writeln (‘Введи числа’);
Readln (a, b);
c:= a mod b ;
d:= a div b;
Writeln (‘остаток’,c);
Writeln (‘целая часть’,d);
Readln;
End.
Вопрос: Найти сумму цифр заданного трехзначного числа
Категория: школьный раздел
Ответы:
Program z6;
Var n, a1, a2, a3, s: Integer;
Begin 
Writeln (‘Введи число’);
Readln (n);
a1:= n div 100  ;
a2:= n div 10 mod 10;
a3:= n mod 10;
s:= a1+a2+a3;
Writeln (‘сумма’, s);
Readln;
End.
Вопрос: Дано трехзначное число. Найти число, полученное при прочтении его цифр справа налево. (123 321)
Категория: школьный раздел
Ответы:
Program z8;
Var n, a1, a2, a3, n1: Integer;
Begin 
Writeln (‘Введи число’);
Readln (n);
a1:= n div 100  ;
a2:= n div 10 mod 10;
a3:= n mod 10;
n1:= a3*100+ a2*10+a1;
Writeln (‘новое число’, n1);
Readln;
End
Вопрос: Найти большее из трех чисел
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a,b,c,max:real;
begin
writeln ('Введи числа');
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln(max);
end.
Вопрос: Вывести на экран номер четверти, которой принадлежит точка (x,y) ( ).
Категория: школьный раздел
Ответы:
Begin
If (x>0) and (y>0) then
Writeln (‘I ’)
Else if (x>0) and (y<0) then 
Writeln (‘IV ’)
Else if (x<0) and (y>0) then 
Writeln (‘II ’)
Else Writeln (‘III ’);
Readln;
End.
Вопрос: Решить квадратное уравнение
Категория: школьный раздел
Ответы:
Program kvur;
uses crt;
var d, a, b, c, x, x1, x2: real;
begin
readln (a, b, c);
d:=sqr(b)-4*a*c;
if d>0 then begin x1:= (-b-sqrt(d))/(2*a); x2:= (-b+sqrt(d))/(2*a);
                  writeln(x1:7:3,x2:7:3); end
                  else if d=0 then  begin x:=-b/(2*a);writeln(x:7:3); end
                  else writeln ('korney no');
end.
Вопрос: Составить программу, которая в зависимости от порядкого номера дня недели выводит на экран его название
Категория: школьный раздел
Ответы:
Program z1;
Var n: integer;
Begin
Read (n);
Case n of               или  n mod 7
1: Write (‘понедельник’);
2: Write (‘вторник’);
3: Write (‘среда’);
4: Write (‘четверг’);
5: Write (‘пятница’);
6: Write (‘суббота’);
7(0): Write (‘воскресенье’);
end;
end.
Вопрос: Выполнить заданную арифметическую операцию с двумя числами
Категория: школьный раздел
Ответы:
program z2;
uses crt;
var op:char;
a,b,s:real;
begin
write('введи числа '); readln(a,b);
 write('введи знак операции '); readln(op);
 case op of
 '+': s:=a+b;
 '-': s:=a-b;
 '*': s:=a*b;
 '/': s:=a/b;
 end;
  write(a, op, b,'=',s);
  end
Вопрос: Найти все делители числа n
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var n, i: integer; k: real;
begin
read (n);
for i:=1 to n do
if  n mod I = 0  then  writeln (i);
end.
Вопрос: Напечатать таблицу квадратных корней из чисел от 1 до 20
Категория: школьный раздел
Ответы:
program z3;
uses crt;
var i: integer; b: real;
begin
for i:=1 to 20 do 
begin
b:= sqrt(i);
writeln (i: 4, b:7:2);
end;
end.
Вопрос: 10. При оценки стоимости предприятия и его элементов используют следующие подходы
 карреляционный
 (*ответ к тесту*) затратный, сравнения продаж (аналоговый), доходный
 прямой капитализации
1. Существуют ли различия между собственными и заемными средствами
 (*ответ к тесту*) существуют и выражаются в том, что процентные платежи вычитаются до налогов, т. е. включаются в 
валовые издержки, в то время как дивиденды выплачиваются из прибыли
 процентные платежи вычитаются из прибыли, дивиденды выплачиваются из прибыли
2. В основе концепции стоимости денег во времени лежит следующий основной принцип:
 (*ответ к тесту*) доллар сейчас стоит больше, чем доллар, который будет получен в будущем, например, через год, т. к. он 
может быть инвестирован и это принесет дополнительную прибыль
 доллар сейчас стоит меньше, чем доллар , который будет получен в будущем, например, через год
3. Экономический анализ инвестиционного проекта состоит
 (*ответ к тесту*) в оценке влияния вклада проекта в увеличение богатства государства
 в оценке влияния вклада проекта в увеличение богатства владельцев компании от реализации этого проекта
4. Бизнес-план-это
 подробный финансовый документ, определяющий затраты на инвестиционный проект
 (*ответ к тесту*) подробный, четко сформулированный и тщательно подготовленный документ, описывающийй цели изадачи, 
которые необходимо решить предприятию, способыдостижения поставленных целей и технико-экономические показатели предприятия и / или проекта в результате их достижения
Категория: экономические
Ответы:
Правильные вопросы выделены по тесту
тест уже прошел свою проверку
надеюсь на плюс 1 голос к ответу
Вопрос: Составить таблицу перевода метров в ярды, если 1м = 0,91 ярда на [1; 20].
Категория: школьный раздел
Ответы:
program z4;
uses crt;
var i: integer; b: real;
begin
for i:=1 to 20 do 
begin
b:= i*0.91;
writeln (i: 4, b:7:2);
end;
end.
Вопрос: Сберкасса начисляет 30% годовых. Какой станет сумма S, положенная в банк на n лет.
Категория: школьный раздел
Ответы:
program z5;
uses crt;
var i: integer; b: real;
begin
writeln (‘Введите сумму’); read (s);
writeln (‘Введите кол-во лет’); read (n);
for i:=1 to n do 
s:= s+s*0.3;
writeln (s:7:2);
end.
Вопрос: Вычислить n!
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var n,i:integer; s: longint;
begin
read (n); s:=1;
for i:=1 to n do  s:=s*i ;
 writeln(s);
end.
Вопрос: Найти НОД(а, b).
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a, b: integer; 
begin
read (a, b);
while a<>b do
if a>b then a:=a-b else b:=b-a;
 writeln (a);
end.
Вопрос: Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь, т.е. найти такие натуральные числа p и q, не имеющие общих делителей, что  p / q = a / b.
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a,b,m,n:integer; p,q: real;
begin
read (a,b);
m:=a; n:=b;
while m<>n do
if m>n then m:=m-n else n:=n-m;
p:= a/m;
q:= b/m;
 writeln(p,'/',q);
end.
Вопрос: Среди чисел 1, 4, 9, 16, 25, … найти первое число, большее n
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var i, n: integer; 
begin
read (n);
i:=1;
while sqr(i)<n do
i:=i+1;
 writeln (sqr(i));
end.
Вопрос: Определить количество цифр в числе
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var n,i: integer;
begin
readln (n);
i:=0;
while n <>0 do
begin
n:= n div 10;
i:=i+1; end;
write (i);
end.
Вопрос: Дано число n. 
a) напечатать те натуральные числа, квадрат которых не превышает n.
b) найти первое натуральное число, квадрат которого больше n.
Категория: школьный раздел
Ответы:
a) program z1;
uses crt;
var i, n: integer; 
begin
read (n);
i:=1;
while sqr(i) < n do
  begin writeln (i);  i:=i+1;    end;
end.

b)  program z1;
uses crt;
var i,n:integer; 
begin
read (n);
i:=1;
while sqr(i)<n do    i:=i+1;
  writeln(i);
end.
Вопрос: Определить сумму цифр натурального числа n и вывести его запись в обратном порядке.
Категория: школьный раздел
Ответы:
program z2;
uses crt;
var k, s, n: integer; a: longint;
begin
readln (n);
k:=0; s:=0; a:=0;
repeat
k:=k+1;
s:=s+ n mod 10;
a:= a*10 +n mod 10;
n:= n div 10;
until n=0;
writeln ('число цифр ', k, '  сумма цифр; ', s);
writeln (‘Запись в обр. порядке; ',a);
end.
Вопрос: Суммирование любого количества целых чисел
Категория: школьный раздел
Ответы:
program z4;
var sum: real;
count, x:integer;
begin
count:=1; sum:=0;
repeat
write ('Введите значение’, count, '-го слагаемого'); read(x);
count:=count+1;
if x<>999 then sum:=sum+x;
until x=999;
writeln ('Сумма введенных чисел = ', sum:7:3);
end.
Вопрос: «Угадай число»
Категория: школьный раздел
Ответы:
program z5;
var comp: integer;
igrok : integer;
begin
randomize;
comp:=random(100);
 repeat
write ('Введите число');  read (igrok);
if igrok > comp then writeln ('Слишком много…')
else if igrok<comp then writeln ('Слишком мало…')
else writeln ('Вы угадали! ');
until igrok=comp;
end.
Вопрос: Арифметический калькулятор
Категория: школьный раздел
Ответы:
program z1; {k -сомножители, a- число сомножителей , s - произведение}
uses crt;
var x, y, s: real;
a, b: char;
begin
repeat
write(‘x=’); read(x);
write(‘y=’); read(y);
write(‘Операция(+, -, *, /)’); read(a);
case a of
‘+’: s:=x+y;
‘-’: s:=x-y;
‘*’: s:=x*y;
‘/’: s:=x/y
else
write(‘Ошибка ввода’);
end;
writeln (x:7:3, a:3, y:7:3, ‘=’, s:7:3 );
write (‘Продолжить (y/n)’);
read(b);
until (b=’n’) or (b=’n’);
end.
Вопрос: Произведение N первых нечетных чисел равно p. Сколько сомножителей взято?
Категория: школьный раздел
Ответы:
program z1; {k -сомножители, a- число сомножителей , s - произведение}
uses crt;
var k,s,p:integer; a: longint;
begin
readln(p);
k:=1; s:=1; a:=0;
repeat
s:=s*k;
k:=k+2;
a:=a+1;
until p=s;
writeln ('число сомножителей; ',a);
end.
Вопрос: Известен факториал числа n. Найти это число
Категория: школьный раздел
Ответы:
program faktorial;
uses crt;
var n: real;
i: integer;
begin
read (n);
i:=1;
repeat
n:=n/i;
i:=i+1;
until n=1;
write (i-1);
end.
Вопрос: Найти все трехзначные числа, которые при делении на 47 дают в остатке 43
Категория: школьный раздел
Ответы:
program ostatok;
uses crt;
var i, x: integer;
begin
for i:=100 to 999 do
if i mod 47=43 then writeln (i);
end.
Вопрос: Распечатать в столбик таблицу умножения на 7
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var p,i:integer;
begin
for i:= 1 to 9 do begin
p:=i*7;
writeln (i,'*7=',p);
end;
end.
Вопрос: Найти среднее арифметическое квадратов всех целых чисел от a до b. (Значения a и b вводятся с клавиатуры.)
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var i,a,b,n:integer;s:real;
begin
readln(a,b);
for i:= a to b do begin
s:=s+sqr(i); n:=n+1;   end;
s:=s/n;
writeln (s);
end.
Вопрос: Найти среднее арифметическое квадратов всех целых чисел от 1 до 100
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var i:integer;s:real;
begin
for i:= 1 to 100 do
s:=s+sqr(i);
s:=s/100;
writeln (s);
end.
Вопрос: В десятичной записи числа 42..4 две цифры пропущены. Восстановите их, если известно, что это число кратно 72.
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a,b,c:integer;
begin
for a:= 0 to 9 do
for b:=0 to 9 do
begin
c:=42004+a*100+b*10;
if c mod 72=0 then write (c:6);
end;
end.
42 264, 42 624, 42 984.
Вопрос: К числу 0884 слева и справа приписали по цифре так, чтобы полученное число было бы полным квадратом целого числа.(208849=457^2)
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a,b,c:integer;
 d:real;
begin
for a:= 1 to 9 do
for b:=0 to 9 do
begin
c:=8840+a*100000+b;
d:=sqrt(c);
if d=int(d) then write (c:6);
end;
end.
Вопрос: Имеется 100 руб. Сколько быков, коров и телят можно купить на все эти деньги, если плата за быка – 10 руб., за корову – 5 руб., за теленка – полтинник (0,5 руб.) и надо купить 100 голов скота?
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a,b,c:integer;
 begin
for a:= 1 to 10 do
for b:=1 to 20 do
for c:=1 to 200 do                                                             с:= 100-(a+b);                    
begin
if (a+b+c=100)and (a*10+b*5+c*0.5=100) then             if  (a*10+b*5+c*0.5=100)
writeln (a:6,b:6,c:6);
end;
end.
Вопрос: Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a,b,c:integer;
 begin
for a:= 1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (a<>b)and (b<>c)and (a<>c) then write ((a*100+b*10+c):5);
end.
Вопрос: Напечатать таблицу умножения
Категория: школьный раздел
Ответы:
program tablumnog;
uses crt;
var a,b,n:integer;
 begin
for a:= 1 to 9 do  begin
for b:=1 to 9 do
 write (a:3,'*',b,'=',a*b:2);
    writeln  ;
 end;
end.
Вопрос: Найти все совершенные числа, меньшие числа n.(Совершенное число, равно сумме всех своих делителей, исключая самого себя, например 6=1+2+3.)(6, 28, 496, 8128,…, всего найдено 24 совершенных числа.)
Категория: школьный раздел
Ответы:
program z3;
uses crt;
var i,j,n,m:integer;
begin
 write('введи число'); read(n);
for i:= 2 to n do  begin
m:=0;
for j:=1 to i-1 do
 if i mod j=0 then m:=m+j;
 if m=i then     writeln (i) ;
 end;
end.
Вопрос: Натуральное число из n цифр является числом Армстронга, если сумма его цифр, возведенных в n-степень, равна самому числу (напр., 153=1^3+5^3+3^3). Получить все числа Армстронга, состоящие трех цифр. (153, 370, 371, 407)
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a,b,c,n: integer;
begin
for a:=100 to 999 do
 begin
 c:=0;n:=a;
  while n<>0 do
  begin
      b:=n mod 10;
      c:=c+sqr(b)*b;
      n:=n div 10;
      end;
 if a=c then writeln (a);
end;
end.
Вопрос: Определить количество трехзначных натуральных чисел, сумма цифр которых равна целому числу n (0<n<28).
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a,b,c,n,i: integer;
begin
read (n);
for a:=1 to 9 do
for b:=0 to 9 do
for c:=9 to 9 do
begin
if a+b+c=n then begin i:=I+1; writeln (a*100+b*10+c);end;
end;
writeln (I);
end.
Вопрос: Найти все двузначные числа, которые делятся на n или содержат цифру n.
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a,b,c,n,i: integer;
begin
read (n);
for a:=1 to 9 do
for b:=0 to 9 do
if ((a*100+b) mod n=0) or (a=n) or (b=n)then   write ((a*100+b*10+c):4);
end.
Вопрос: Найти сумму делителей каждого из целых чисел от 50 до 70
Категория: школьный раздел
Ответы:
program z1;
uses crt;
var a,b,c,i: integer;
begin
for a:=50 to 70   do  begin i:=0;
  for b:=1 to a do
if a mod b = 0 then
     i:=i+b; writeln(a:4,i:5);
 end;
end.
Вопрос: Создать массив из  n элементов. Напечатать элементы массива в прямом и обратном порядке
Категория: школьный раздел
Ответы:
program massiv ;
uses crt;
 type mas=array[1..1000] of integer;
var i,n: 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;
    for i:=n downto 1 do
    begin
    write(m[i], '  ');
        end;        end.