nyuuzyou/soloby huggingface dataset:
Вопрос: Среди чисел а, b, с есть хотя бы одна пара взаимно противоположных чисел
Категория: школьный раздел
Ответы:
uses crt;
var a,b,c:real;
begin
clrscr;
writeln('Введите 3 числа:');
readln(a,b,c);
if((a<>0)and(b<>0)and(a+b=0))
or((a<>0)and(c<>0)and(a+c=0))
or((b<>0)and(c<>0)and(b+c=0))then
write('Есть пара противоположных')
else write('Нет пары противоположных');
readln
end
Вопрос: Данные числа х, у являются координатами точки, лежащей в первой координатной четверти
Категория: школьный раздел
Ответы:
var x, y : real;
begin
   write('x = '); readln(x);
   write('y = '); readln(y);
   if (x > 0) and (y > 0) then writeln('x и y в первой четверти')
   else if (x < 0) and (y < 0) then writeln('x и y в третьей четверти')
   else writeln('x и y где-то в другом месте')
end.
Вопрос: Данные числа c и d являются соответственно квадратом и кубом числа а. (программа Паскаль)
Категория: школьный раздел
Ответы:
var a,c,d:integer;
begin
writeln('Введите целые числа a,c,d');
readln(a,c,d);
if(c=a*a)and(d=a*a*a) then write('Числа c,d являются квадратом и кубом числа а')
else write('Числа c,d не являются квадратом и кубом числа а')
end.
Вопрос: Заданное натуральное число N является двузначным и кратно К.
Категория: школьный раздел
Ответы:
program ivan_vasilievich;
uses crt;
var n, k:integer;
begin
writeln('Введите своё число');
readln(n);
If (n<10) or (n>99) then
begin
writeln('Число не двухзначное');
readln(k);
If n mod k=0 then
begin
writeln('Число кратно ',k);
end;
If n mod k<>0 then
begin
writeln('Число не кратно',k);
end;
end
else
begin
writeln('Число двухзначное');
readln(k);
If n mod k=0 then
begin
writeln('Число кратно ',k);
end;
If n mod k<>0 then
begin
writeln('Число не кратно ',k);
end;
end;
readln;end.
Вопрос: Даны координаты (как целые от 1 до 8) двух различных полей шахматной доски. Если король за один ход может перейти с одного поля на другое, вывести логическое значение True, в противном случае вывести значение False.
Категория: школьный раздел
Ответы:
var x1, y1, x2, y2, dx, dy : integer;
begin
   write('x1 = '); readln(x1);
   write('y1 = '); readln(y1);
   write('x2 = '); readln(x2);
   write('y2 = '); readln(y2);
   dx := abs(x1 - x2);
   dy := abs(y1 - y2);
   if (dx < 2) and (dy < 2) and not ((dx = 0) and (dy = 0))
      then writeln('True')
      else writeln('False')
end.
Вопрос: Даны целочисленные координаты точки на плоскости. Если точка не лежит на координатных осях, то вывести 0. Если точка совпадает с началом координат, то вывести 1. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соответственно 2 или 3.
Категория: школьный раздел
Ответы:
var x, y : integer;
begin
   write('x = '); readln(x);
   write('y = '); readln(y);
   if (x = 0) and (y = 0) then writeln(1)
   else if (x = 0) then writeln(2)
   else if (y = 0) then writeln(3)
   else writeln(0)
end.
Вопрос: Дан одномерный массив. Вставить в него элемен L в позицию K.
Категория: школьный раздел
Ответы:
program cefei_gugolpleks;
uses crt;const n=random(100);
var a: array[1..n] of integer;
k, l, i: integer;
begin
clrscr;
writeln('Введите ',n,' эл. массива');
for i:=1 to n do
begin
readln(a[i]);
end;
write('Введите какой элемент надо вставить ');
readln(l);
write('Введите позицию, куда надо вставить ');
readln(k);
a[k]:=l;
For i:=1 to n do
begin
writeln(a[i]);
end;
readln;
end.
Вопрос: (x1, y1) и (х2, у2) — координаты левой верхней и правой нижней вершин прямоугольника. Точка А(х, у) принадлежит данному прямоугольнику.
Категория: школьный раздел
Ответы:
var x1,y1,x2,y2,x,y:real;
f:boolean;
begin
writeln('x1,y1');readln(x1,y1);
writeln('x2,y2');readln(x2,y2);
writeln('x,y');
readln(x,y);
f:=(x1<x)and(x<x2) and(y2<y)and(y<y1);
writeln(f);
end.
Вопрос: Данное четырехзначное число читается одинаково слева направо и справа налево
Категория: школьный раздел
Ответы:
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Введите 4х-значное число a=');
readln(a);
until(a>999)and(a<=9999);
writeln('Данное число читается одинаково справа налево и слева направо?');
write((a div 1000=a mod 10)and(a div 100 mod 10=a div 10 mod 10));
readln
end
Вопрос: Управленческие отношения сами обретают базисный характер, оказывают огромное обратное воздействие на все стороны общественной жизни, и не только экономической, во многом определяют темпы _ прогресса
(*ответ*) социального
 мирового
 нравственного
 политического
 духовно-культурного
Управленческие отношения, будучи по сути своей отношениями людей, складывающимися в процессе управления, проходят через сознание людей, создаются и совершенствуются людьми в зависимости от объективных изменений в производстве, обществе. Поэтому природа управленческих отношений _ – объективно-субъективная.
(*ответ*) двойственная
Управленческий труд включает триаду
(*ответ*) предмет труда (информация)
(*ответ*) средства труда (организационные и технические)
(*ответ*) человека (обладающего определенными знаниями, навыками и умениями)
 условия труда (организационные и технические)
 результат труда (достигнутая цель)
Управленческий труд – это труд, в основе которого лежит
(*ответ*) информация
 кибернетика
 компьютеризация
 организация
Учёными-бихевиористами было разработано несколько теорий мотивации; одной из них является иерархическая теория потребностей А. Маслоу, он предложил следующую классификацию потребностей
(*ответ*) физиологические
(*ответ*) безопасности существования
(*ответ*) социальные (принадлежность к коллективу, общение, внимание к себе, забота о других и пр.)
(*ответ*) престижные (авторитет, служебный статус, чувство собственного достоинства, самоуважение)
(*ответ*) самовыражения, полного использования своих возможностей, достижения целей и личного роста
 моральные (принадлежность к коллективу, общение, внимание к себе, забота о других и пр.)
 социальные (авторитет, служебный статус, чувство собственного достоинства, самоуважение)
Феномен управления известен с (со) _ и изучался многими общественными науками (философией, правоведением, социологией, политологией и др.)
(*ответ*) античных
 средневековья
 эпохи Возрождения
 эпохи Нового времени
Формализация ряда управленческих функций, сочетание труда человека и ЭВМ потребовали пересмотра структурных элементов организации; появились такие новые элементы планирования, как
(*ответ*) имитационное моделирование решений
(*ответ*) методы анализа в условиях неопределенности
(*ответ*) математическое обеспечение оценки многоцелевых управленческих решений
 имитационное моделирование управления
 количественное обеспечение оценки многоцелевых управленческих решений
Целеполагание лежит в основе главного принципа управления – _ подхода
(*ответ*) системного
 комплексного
 интеграционного
 координационного
 функционального
 системно-функционального
Целеполагание пронизывает и определяет все стадии управленческой работы
(*ответ*) информационную
(*ответ*) организационную
(*ответ*) регулирующую
(*ответ*) координирующую
(*ответ*) контрольную
 обратной связи
 заключительную
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: В заданном натуральном трехзначном числе N имеется четная цифра.
Категория: школьный раздел
Ответы:
program pr1;
uses crt;
var n:integer;
     f:boolean;
begin
clrscr;
writeln('Введите трехзначное число n ');
readln(n);
if (n>=100) and (n<=999) then
 begin
 f:=((n div 100) mod 2=0) or ((n div 10 mod 10) mod 2=0)
 or((n mod 10) mod 2=0);
 writeln('В задоном числе n имеется четная цифра ',f);
 end
else
writeln('Число не является трехзначным ');
readkey;
end.
Вопрос: Сумма каких-либо двух цифр заданного трехзначного натурального числа N равна третьей цифре
Категория: школьный раздел
Ответы:
var
    num:integer;
    a,b,c,s:byte;
begin
    for num:=100 to 999 do begin
        a := num div 100; b := num div 10 mod 10; c := num mod 10;
        s := a+b+c;
        if ((s = 2*a) or (s = 2*b) or (s = 2*c)) then 
            writeln(num);
    end;
    readln;
end.
Вопрос: Сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1.
Категория: школьный раздел
Ответы:
Var n,s,pr:integer;
Begin
    write('Введите 4-ое число: ');
    readln(n);
    s:=0;pr:=1;
    While n>0 do
    Begin
      s:=s+n mod 10;
      pr:=pr*n mod 10;
      n:=n div 10;
    End;
    writeln(s-pr=1);
    readln;
End.
Вопрос: Сумма двух последних цифр заданного трехзначного числа N меньше заданного К, а первая цифра больше 5.
Категория: школьный раздел
Ответы:
var n,k:integer;
     f:boolean;
begin
repeat
writeln('Введите трехзначное число:');
read(n);
n:=abs(n); //число может быть и отрицательным
until (n>=100)and(n<1000);
write('k=');
read(k);
f:=(n mod 10+(n div 10 mod 10)<k)and(n div 100>5);
write(f);
end
Вопрос: Целая и дробная части заданного вещественного числа одинаковы.
Категория: школьный раздел
Ответы:
var p1,p2,err:integer;
s:string;
 
begin
writeln('Введите число');
readln(s);
val(copy(s,1,pos('.',s)-1),p1,err);
val(copy(s,pos('.',s)+1,length(s)),p2,err);
writeln(p1=p2);  
end.
Вопрос: Заданы координаты трех точек плоскости. Эти точки не лежат на одной прямой.
Категория: школьный раздел
Ответы:
uses crt;
var x1,x2,x3,y1,y2,y3,s:real;
begin
s:=0;
write('Vvedite koordinaty: ');
readln(x1,y1,x2,y2,x3,y3);
s:=0.5*((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1));{площадь треугольника}
if s=0 then write('Lejat na odnoy pryamoy')
else write('Ne lejat na odnoy pryamoy');
readkey;
end.
Вопрос: Среди первых трех цифр дробной части заданного положительного вещественного числа есть цифра 0
Категория: школьный раздел
Ответы:
uses crt;
var x:real;
    y,z,k:integer;
    t:boolean;
begin
clrscr;
write('Введите вещественное число с дробной частью x=');
readln(x);
y:=trunc(frac(x)*1000);//делаем целое 3х значное число
k:=ord(y mod 10=0)+ord(y div 10 mod 10=0)+ord(y div 100=0);//считаем ноли в числе
t:=k>0;//больше 0, true
write(t);
readln
end.
Вопрос: Точка с координатами (x, у) принадлежит части плоскости, лежащей между прямыми у = m, у = n (m < n).
Категория: школьный раздел
Ответы:
uses crt;
var x, y,m,n: integer;
    proverka: boolean;
begin
  clrscr;
  writeln('введите x и y');
  readln(x, y);
  repeat
   writeln('введите m и n с условием m<n');
   readln (m, n);
  until m<n;
  proverka := false;
  if (x >=m) and (x <=n) then
    proverka := true;
writeln;
writeln(proverka);
readln
end.
Вопрос: Шахматный король за один ход может переместиться с одного заданного поля на другое (каждое поле задано двумя координатами — целыми числами от 1 до 8).
Категория: школьный раздел
Ответы:
program z1;
const S1='YES';
S2='NO';
 infile='input.txt';
outfile='output.txt';
var
x1,y1,x2,y2:longint;
c:string;
procedure init;
begin
assign(input,infile);
reset(input);
read(input,x1,y1,x2,y2);
close(input);
end;
procedure out;
begin
assign(output,outfile);
rewrite(output);
write(output,c);
close(output);
end;
begin
init;
if (abs(x1-x2)=1) or (x1=x2) and (abs(y1-y2)=1) or (y1=y2) then c:=S1 else c:=S2;
out;
end.
Вопрос: Целеполагание – одно из средств, которое оказывает воздействие на людей, их поведение и жизнедеятельность и тем больше, чем в большей мере поставленные цели затрагивают интересы человека, его ценности, интересы
(*ответ*) экономические
(*ответ*) социальные
(*ответ*) политические
(*ответ*) духовно-культурные
 моральные
 личные
Целеполагание – сложные процесс, включающий не только образование целей, но и их
(*ответ*) проверку
(*ответ*) корректировку
(*ответ*) согласование
(*ответ*) прогнозирование
 завершение
 программирование
Цели проводимых реформ в России (стратегические, среднесрочные, тактические) оказались ущербными, а способы их осуществления – отрицательными по конечным результатам: принятый курс реформ, как считает большинство добросовестных исследователей, требует
(*ответ*) существенных корректив
 отмены
 корректив
 некоторых корректив
 более интенсивного их проведения
Цели развития общества разделяются на
(*ответ*) главную цель (генеральную)
(*ответ*) подцели второго уровня управления
(*ответ*) подцели третьего уровня управления
(*ответ*) цели отдельных структур управления
 подцели четвёртого уровня управления
 цели отдельных структур управления элементов
ЦСО “Кузьминки” г. Москвы имеет определенную структуру; основными подразделениями являются: отделения
(*ответ*) социальной помощи на дому
(*ответ*) дневного пребывания
(*ответ*) срочной социальной помощи
 временного пребывания
 постоянного пребывания
Школа социальных систем дает в руки разнообразный оценочный и деятельностный инструментарий; к нему относятся следующие понятия
(*ответ*) система, подсистема, элемент
(*ответ*) системный подход и анализ
(*ответ*) структуризация целей, задач
(*ответ*) внутренняя и внешняя среда
(*ответ*) набор, оценка и выбор средств достижения цели, решения задач
(*ответ*) оценка связи “цель – средства – результаты”
(*ответ*) предвидение и сценарии событий
 цель и идеал
Экономическое стимулирование базируется на следующих основных принципах
(*ответ*) взаимосвязь и согласованность целей экономического стимулирования в интересах развития организации
(*ответ*) дифференциация экономического стимулирования, направленная на реализацию необходимых изменений в структуре производства
(*ответ*) сочетание экономического стимулирования с другими методами мотивации
(*ответ*) сочетание экономического стимулирования с экономическими санкциями, материальной ответственностью организаций и работников
 сочетание экономического стимулирования с правовыми санкциями, материальной ответственностью организаций и работников
 взаимосвязь и согласованность средств экономического стимулирования
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Шахматный ферзь за один ход может переместиться с одного заданного поля на другое (каждое поле задано двумя координатами — целыми числами от 1 до 8).
Категория: школьный раздел
Ответы:
var
  x1, y1, x2, y2: byte;
  f, g: boolean;
 
begin
  writeln('Координаты первого поля:');
  write(' x1 = ');
  readln(x1);
  write(' y1 = ');
  readln(y1);
  writeln('Координаты второго поля:');
  write(' x2 = ');
  readln(x2);
  write(' y2 = ');
  readln(y2);
  writeln;
  { Поскольку Ферзь ходит и как ладья (горизонталь - вертикаль), 
  и как слон (диагональ), нам надо объединить эти направления. 
  Как было сказано в задаче boolean36, для успешного перехода
  ладьей необходимо совпадение или координат x, или координат
  y. Поэтому выражение f будет состоять в том, что или x1=x2,
  или y1=y2: }
  f := (x1 = x2)or(y1 = y2);
  { Но ферзь может ходить и как слон, поэтому выражение g будет 
  состоять в том, что разницы соответствующих координат по 
  модулю равны между собой (см. предыдущую задачу boolean38):}
  g := abs(x1 - x2) = abs(y1 - y2);
  { Таким образом, поскольку ферзь ходит или как ладья, или как 
  слон, то выражения f и g объединим логическим оператором or 
  ("или" - или ладья, или слон):}
  writeln(f or g);
  readln
end.
Вопрос: Шахматный конь за один ход может переместиться с одного заданного поля на другое (каждое поле задано двумя координатами — целыми числами от 1 до 8).
Категория: школьный раздел
Ответы:
uses crt;
var a,b,c,d:byte;
begin
clrscr;
repeat
writeln('Положение коня:');
write('a=');readln(a);
write('b=');readln(b);
until (a in [1..8])and(b in [1..8]);
repeat
writeln('Поле для хода:');
write('c=');readln(c);
write('d=');readln(d);
until (c in [1..8])and(d in [1..8]);
if ((abs(a-c)=1)and(abs(b-d)=2))or((abs(a-c)=2)and(abs(b-d)=1))then
write('Конь может за один ход попасть на заданное поле')
else write('Конь не может за один ход попасть на заданное поле');
readln
end
Вопрос: Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник. Если да, то прямоугольный ли он
Категория: школьный раздел
Ответы:
uses crt;
var a,b:real;
begin
 writeln('Vvedite ugli a,b ');
 readln(a,b);
 if a+b>180 then
  writeln('Takogo treugolnika ne sushestvuet ')
    else
      begin
        writeln('Takoy treugolnik  sushestvue');
            if (a=90)or(b=90)or(180-a-b=90) then writeln(' on pryamougolniy')
               else
                 writeln(' on ne pryamougolniy');
      end;
readln;
end
Вопрос: На плоскости XOY задана своими координатами точка А. Указать, где она расположена: на какой оси или в какой координатной четверти.
Категория: школьный раздел
Ответы:
uses crt;
var x,y:real;
begin
writeln('Введите координаты точки:');
read(x,y);
if(x=0)and(y=0) then write('В начале координат')
else if(x=0)and(y<>0) then write('На оси Y')
else if(x<>0)and(y=0) then write('На оси X')
else if(x>0)and(y>0)then write('I четверть')
else if(x<0)and(y>0)then write('II четверть')
else if(x<0)and(y<0)then write('III четверть')
else write('IV четверть');
end.

Program qwe;
Uses crt;
Label 1;
var x,y: Real;
Begin
Clrscr;
Write ('x,y=');
Read(x,y);
Write('Точка расположена ');
if x=0 then Begin Write('на оси OY');goto 1; end;
if y=0 then Begin Write('на оси OX'); goto 1;end;
if (x>0) and (y>0) then Begin
Write('в первой четверти');
goto 1;
end;
if (x<0) and (y>0) then begin
Write('во второй четверти');
goto 1;
end;
if (x<0) and (y<0) then Begin
Write('в третьей четверти');
goto 1;
end
else Write('в четвертой четверти');
1: Readkey;
end.
Вопрос: Грузовой автомобиль выехал из одного города в другой со скоростью v1 км/ч. Через t ч в этом же направлении выехал легковой автомобиль со скоростью и2 км/ч. Составить программу, определяющую, догонит ли легковой автомобиль грузовой через t1 ч после своего выезда.
Категория: школьный раздел
Ответы:
program zxc;
var n:string;  v1,v2,t,d,c:integer;
begin
writeln ('V1');
read (v1);
writeln ('V2');
read (v2);
writeln ('t');
read (t);
d:=v1*(t+1);
if d>v2 then writeln ('Ne dogonit') else
writeln ('Dogonit');
readln;
end.

uses crt;
 
var t,t1,v1,v2:real;
 
begin
    t:=1; t1:=1; v1:=1; v2:=1;
    Write('Введите скорость 1-го авто. - ');readln(v1);
    Write('Время через которе выехал 2-й авто. - ');readln(t);
    v1:=v1*t;
    Write('Введите скорость 2-го авто. - ');readln(v2);
    Write('Время через которе 1-е авто. должен догать 2-е - ');readln(t1);
    v1:=v1*t1;  v2:=v2*t1;
    If (v2=v1) or (v2>v1) then writeln('Догонит.') else writeln('Не догонит.');
end.
Вопрос: Написать программу нахождения суммы большего и меньшего из 3 чисел.
Категория: школьный раздел
Ответы:
var a,b,c: integer;
min, max, s: integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a>b)  then max:=a else max:=b;
if (c>max) then max:=c;
if (a<b)then min:=a else min:=b;
if (c<min)then min:=c;
s:=max+min;
writeln('Сумма максимального и минимального числа =', s);
end.

var
  A : array [1..3] of Integer;
  i : integer;
  
function summa(A: array [1..3] of Integer): integer;
var
  max, min: integer;
begin
max := A[1];
min := A[1];
  For i:=1 to 3 do
Begin
 if max<A[i] then max:=A[i];
 if min>A[i] then min:=A[i];
end;
  summa := max + min;
end;
 
begin
  For i:=1 to 3 do
  Readln(A[i]);
  writeln(summa(A));
end.
Вопрос: Найти max{min(a, b), min(c, d)}.
Категория: школьный раздел
Ответы:
var a, b, c, d, m, m1, m2: real;
begin
    write('Введите четыре числа:')
    readln(a, b, c, d);
    if a<b then m:=__ else m:=__;
    if c<d then m1:=c else m1:=d;
    if m<m1 then m2:=__ else m2:=__;
    writeln('Максимальный из минимальных элементов: ', m2:7:2)
end.

function Max(a,b:integer):integer;
begin
  if a>b then
    Max:=a
  else
    Max:=b
end;
function Min(a,b:integer):integer;
begin
  if a<b then
    Min:=a
  else
    Min:=b
end;
var
  a,b,c,d:integer;
begin
  readln(a,b,c,d);
  writeln('Result:=',Max(Min(a,b),Min(c,d)))
end.
Вопрос: Составить программу, осуществляющую перевод величин из радианной меры в градусную или наоборот. Программа должна запрашивать, какой перевод нужно осуществить, и выполнять указанное действие
Категория: школьный раздел
Ответы:
var
 ch: char;
 r: real;
begin
 readln(r);
 writeln('В градусы(G)? В радианы(R)?');
 readln(ch);
  case ch of
   'G', 'g': writeln((r*180/pi):2:2, ' градусов');
   'R', 'r': writeln((r*pi/180):2:2, ' радиан');
  end;
end.

uses crt;
var gr,rad,a,b:real;
    c:byte;
Begin
clrscr;
writeln('1:grad>rad');
writeln('2:rad>grad');
readln(c);
case c of
1: begin
   clrscr;
   writeln('vvod grad');
   readln(a);
   rad:=(pi/180)*a;
   write('rad= ',rad:4:4);
   end;
2: begin
   clrscr;
   writeln('vvod rad');
   readln(b);
   gr:=(180/pi)*b;
   write('grad= ',gr:4:4);
   end;
end;
readln;
end.
Вопрос: Заданы размеры А, В прямоугольного отверстия и размеры x,y,z кирпича. Определить, пройдет ли кирпич через отверстие
Категория: школьный раздел
Ответы:
Uses CRT;
Const n=3;
      m=2;
var a:array[1..n] of integer;
    b:array[1..m] of integer;
    i:integer;
begin
     ClrScr;
     writeln('Кирпич (Длина х Ширина х Высота):');
     for i:=1 to n do read(a[i]);
     writeln('Отверстие (Длина х Ширина):');
     for i:=1 to m do read(b[i]);
     if (a[2]<b[1]) and (a[3]<b[2]) then writeln('Кирпич пройдет в отверстие')
     else writeln('Не пройдет');
end.

program abxyz;
var a,b,x,y,z:real;
begin
write('a:');
read(a);
write('b:');
read(b);
write('x:');
read(x);
write('y:');
read(y);
write('z:');
read(z);
if (x<a) and (y<b) or (x<b) and (y<a) then
writeln('True')
else
if (x<a) and (z<b) or (x<b) and (z<a) then
writeln('True')
else
if (y<a) and (z<b) or (y<b) and (z<a) then
writeln('True')
else
writeln('False');
end.
Вопрос: Два прямоугольника, расположенные в первом квадранте, со сторонами, параллельными осям координат, заданы координатами своих левого верхнего и правого нижнего углов. Для первого прямоугольника это точки (x1,у1) и (х2, 0), для второго — (x3, у3), (х4, 0). Составить программу, определяющую, пересекаются ли данные прямоугольники, и вычисляющую площадь общей части, если они пересекаются.
Категория: школьный раздел
Ответы:
uses crt;
var x1,x2,y1,x3,x4,y2,s:real;
begin
clrscr;
repeat
writeln('Введите абциссы вертикальных сторон первого прямоугольника x2>x1>=0');
readln(x1,x2);
until(x1>=0)and(x2>x1);
repeat
write('Ордината верхней стороны y1>0 y1=');
readln(y1);
until y1>0;
repeat
writeln('Введите абциссы вертикальных сторон второго прямоугольника x4>xx>=0');
readln(x3,x4);
until(x3>=0)and(x4>x3);
repeat
write('Ордината верхней стороны y2>0 y2=');
readln(y2);
until y2>0;
if (x3>=x2)or(x4<=x1) then write('Прямоугольники не пересекаются!')
else
 begin
  if y1>=y2 then
   begin
    if(x3>=x1)and(x4<=x2)then s:=(x4-x3)*y2 else
    if(x3>=x1)and(x4>=x2)then s:=(x2-x3)*y2 else
    if(x3<=x1)and(x4>=x2)then s:=(x2-x1)*y2 else
    if(x3<=x1)and(x4<=x2)then s:=(x4-x1)*y2
   end
  else
   begin
    if(x3>=x1)and(x4<=x2)then s:=(x4-x3)*y1 else
    if(x3>=x1)and(x4>=x2)then s:=(x2-x3)*y1 else
    if(x3<=x1)and(x4>=x2)then s:=(x2-x1)*y1 else
    if(x3<=x1)and(x4<=x2)then s:=(x4-x1)*y1
   end;
  write('Прямоугольники пересекаются, площадь пересечения=',s:0:2);
 end;
readln
end.
Вопрос: В небоскребе N этажей и всего один подъезд; на каждом этаже по 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры М. На какой этаж должен доставить лифт пассажира?
Категория: школьный раздел
Ответы:
program Lift;
var
a,kv,et:integer;
begin
writeln('Vvedite nomer kvartiry');
readln(a);
kv:=0;
et:=0;
while kv<a do
begin
kv:=kv+3;
et:=et+1;
end;
if (et mod 2)=0 then et:=et-1;
writeln('Na ',et, ' etage');
readln
end.

uses crt;
var n,m,e:byte;
begin
clrscr;
write('Количество этажей=');
readln(n);
repeat
write('Номер квартиры:');
readln(m);
until m<=3*n;{макс кол-во квартир}
e:=(m+2) div 3;{нужный этаж}
if (e=n)and(n mod 2=0)then e:=e-1{если последний и четный}
else if e mod 2=0 then e:=e+1;{четный но не последний}
write('Этаж=',e);
readln
end.
Вопрос: Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительной
Категория: школьный раздел
Ответы:
uses crt;
var a,b,c:integer;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if a+b >0 then writeln ('a+b >0');
if b+c >0 then writeln('b+c >0');
if a+c >0 then writeln('a+c >0');
end.
Вопрос: Известно, что из четырех чисел a1, а2, а3 и а4 одно отлично от трех других, равных между собой; присвоить номер этого числа переменной n. (программа Паскаль)
Категория: школьный раздел
Ответы:
begin
write('Введите a1,a2,a3,a4: ');
var a1,a2,a3,a4,n:integer;
readln(a1,a2,a3,a4);
if a1=a4 then
begin
  if a1=a2 then n:=3 else n:=2;
end 
else if a1=a2 then n:=4 else n:=1;
writeln('Номер числа: ',n);
end.
Вопрос: Составить программу, которая проверяла бы, не приводит ли суммирование двух целых чисел А и В к переполнению (т. е. к результату большему, чем 32 767). Если будет переполнение, то сообщить об этом, иначе вывести сумму этих чисел.
Категория: школьный раздел
Ответы:
var a,b: integer;
 
begin
write('A = '); readln(a);
write('B = '); readln(b);
 
if MaxInt - a < b then
 writeln('Perepolnenie!')
else
 writeln('A + B = ',a+b);
readln; end.
Вопрос: Составить программу, которая проверяет, является ли четырёхугольник, заданный координатами своих вершин ромбом.
Категория: школьный раздел
Ответы:
program jfjffj;
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
function romb(a,b,c,d:real):real;
begin
if (a=b)and(b=c)and(c=d)then
writeln('ромб')else 
writeln('четырёхугольник');
end;
begin
write(x1,y1,x2,y2,x3,y3,x4,y4);
readln(x1,y1,x2,y2,x3,y3,x4,y4);
writeln('четырёхугольник является ',romb);
end.
Вопрос: Составить программу для нахождения суммы минимального и максимального значений среди элементов каждой из линейных таблиц Х[10] и Y[6].
Категория: школьный раздел
Ответы:
program dfkjlg;
const N=20;
type mas=array[1..N]of real;
var x,y:mas;
procedure vvod(var a:mas;m:integer);
var i:integer;
begin
randomize;
for i:=1 to m do
a[i]:=random(20)-10;
end;
procedure vivod(a:mas;m:integer);
var i:integer;
begin
for i:=1 to m do
write(a[i],' ');
end;
function max(a:mas;m:integer):real;
var i:integer;
begin
max:=a[1];
for i:=2 to m do
if max<a[i] then max:=a[i];
end;
function min(a:mas;m:integer):real;
var i:integer;
begin
min:=a[1];
for i:=2 to m do
if min>a[i] then
min:=a[i];
end;
begin
vvod(x,10);
vvod(y,6);
vivod(x,10);
vivod(y,6);
writeln('максимальный элемент матрицы x= ',max(x,10));
writeln('максимальный элемент матрицы y= ',max(y,6));
writeln('минимальный элемент матрицы x= ',min(x,10));
writeln('минимальный элемент матрицы y= ',min(x,6));
end.
Вопрос: Для двух треугольных пирамид, заданных ребрами, определить, площадь полной поверхности которой из них больше и на сколько.
Категория: школьный раздел
Ответы:
uses crt;
procedure Sp(a:real;var s:real);
begin
s:=a*a*sqrt(3);
writeln('Площадь полной поверхности=',s:0:2);
end;
var a,s:real;
    i:byte;
begin
clrscr;
writeln('Введите длины ребер 2 тетраэдров:');
for i:=1 to 2 do
 begin
  write('a',i,'=');
  readln(a);
  Sp(a,s);
 end;
readln
end.
Вопрос: Дана точка А(х, у). Определить, принадлежит ли она треугольнику с вершинами в точках (X1, у1), (х2, У2), (х3,y3).
Категория: школьный раздел
Ответы:
uses crt;
const t=0.0001;
function Plosh(x1,y1,x2,y2,x3,y3:real):real;
begin
Plosh:=abs((x1-x2)*(y3-y2)-(y1-y2)*(x3-x2))/2;
end;
var x1,y1,x2,y2,x3,y3,tx,ty,s:real;
begin
clrscr;
writeln('Введите координаты вершин треугольника:');
writeln('Вершина 1:');readln(x1,y1);
writeln('Вершина 2:');readln(x2,y2);
writeln('Вершина 3:');readln(x3,y3);
if Plosh(x1,y1,x2,y2,x3,y3)<t then
write('Это не треугольник!')
else
 begin
  writeln('Введите координаты точки:');
  readln(tx,ty);
  s:= Plosh(x1,y1,x2,y2,tx,ty)+ Plosh(x1,y1,tx,ty,x3,y3)+ Plosh(tx,ty,x2,y2,x3,y3);
  if  abs(Plosh(x1,y1,x2,y2,x3,y3)-s)<t then
  write('Точка принадлежит треугольнику!')
  else write('Точка не принадлежит треугольнику!');
 end;
readln
end.

uses crt;
var x1,y1,x2,y2,x3,y3,tx,ty:real;
begin
clrscr;
writeln('Введите координаты вершин треугольника по часовой стрелке:');
readln(x1,y1,x2,y2,x3,y3);
writeln('Введите координаты точки:');
readln(tx,ty);
if((tx-x1)*(y1-y2)-(ty-y1)*(x1-x2)>=0)
and((tx-x2)*(y2-y3)-(ty-y2)*(x2-x3)>=0)
and((tx-x3)*(y3-y1)-(ty-y3)*(x3-x1)>=0) then
write('Лежит') else write('Не лежит');
readln
end.
Вопрос: Написать программу, определяющую, будут ли прямые A1X + В1у + C1 = 0 и А2х + В2у + С2 = 0 перпендикулярны. Если нет, то найти угол между ними.
Категория: школьный раздел
Ответы:
uses crt;
var a1,b1,c1,a2,b2,c2:integer;
    u:real;
begin
clrscr;
repeat
writeln('Введите коэффициенты первой прямой:');
readln(a1,b1,c1);
if (a1=0)and(b1=0) then writeln('Это не прямая, повторите ввод.');
until (a1<>0)or(b1<>0);
repeat
writeln('Введите коэффициенты второй прямой:');
readln(a2,b2,c2);
if (a2=0)and(b2=0) then writeln('Это не прямая, повторите ввод.');
until (a2<>0)or(b2<>0);
if a1*a2+b1*b2=0 then write('Прямые перепендикулярны')
else
 begin
  u:=abs((arctan((a1*b2-a2*b1)/(a1*a2+b1*b2)))*180/pi);
  write('Прямые не перепендикулярны, угол=',u:0:2,#248);
 end;
readln
end.
Вопрос: Заданы координаты вершин прямоугольника: (х1, y1), (х2, y2), (х3, у3), (х4, у4). Определить площадь части прямоугольника, расположенной в I координатной четверти.
Категория: школьный раздел
Ответы:
var w,h,x,y,x1,y1,x2,y2,n,i,c,buf:longint;
    a:array[-100..100,-100..100] of 0..1;
begin
readln(x1,y1,x2,y2);
if y1>y2 then begin
buf:=x1;
x1:=x2;
x2:=buf;
buf:=y1;
y1:=y2;
y2:=buf;
end;
      for y:=y1+1 to y2 do
      for x:=x1+1 to x2 do
        a[y][x]:=1;
  c:=0;
  for y:=0 to 100 do
    for x:=0 to 100 do
      c:=c+a[y][x];
  write(c);
end.
Вопрос: Найти координаты точек пересечения прямой у = kx + b и окружности радиуса R с центром в начале координат. В каких координатных четвертях находятся точки пересечения? Если точек пересечения нет или прямая касается окружности, выдать соответствующее сообщение.
Категория: школьный раздел
Ответы:
uses crt;
var R,k,b,x1,y1,x2,y2,d,a,b1,c:real;
begin
clrscr;
write('Введите радиус окружности R=');
readln(R);
writeln('Введите коэффициенты уравнения прямой k,b:');
readln(k,b);
a:=k*k+1;
b1:=2*k*b;
c:=b*b-r*r;
d:=b1*b1-4*a*c;
if d<0 then writeln('Точек пересечения нет.')
else if d=0 then
 begin
  x1:=-b1/(2*a);
  y1:=k*x1+b;
  writeln('Прямая касается окружности в точке x=',x1:0:2,' y=',y1:0:2);
 end
else if d>0 then
 begin
  x1:=(-b1+sqrt(d))/(2*a);
  y1:=k*x1+b;
  x2:=(-b1-sqrt(d))/(2*a);
  y2:=k*x2+b;
  writeln('Прямая пересекает окружность в двух точках:');
  writeln('x1=',x1:0:2,'  y1=',y1:0:2,'  x2=',x2:0:2,'  y2=',y2:0:2);
  if(x1>0)and(y1>0)then writeln('Точка x1 в первой четверти')
  else if(x1<0)and(y1>0)then writeln('Точка x1 во второй четверти')
  else if(x1<0)and(y1<0)then writeln('Точка x1 в третьей четверти')
  else if(x1>0)and(y1<0)then writeln('Точка x1 в четвертой четверти');
  if(x2>0)and(y2>0)then writeln('Точка x2 в первой четверти')
  else if(x2<0)and(y2>0)then writeln('Точка x2 во второй четверти')
  else if(x2<0)and(y2<0)then writeln('Точка x2 в третьей четверти')
  else if(x2>0)and(y2<0)then writeln('Точка x2 в четвертой четверти')
 end;
end.
Вопрос: Составить подпрограмму для вычисления определенного интеграла методом трапеций
Категория: школьный раздел
Ответы:
uses crt;
var a,b,S,h,integ: real;
    i,n: integer;
 
function f(x: real): real;
begin
 f:=2*x+1; //сюда интеграл.
end;
 
begin
 clrscr;
 write('a/b/n: '); //нижняя/верхняя границы и число разбиений (обычно 10 хватает)
 readln(a,b,n);
 h:=(b-a)/n;
 for i:=1 to n-1 do
  S:=s+f(a + h*i);
 integ:=h*((f(a)+f(b))/2+S);
 writeln('S=',integ);
 readln;
end.
Вопрос: На прямой расположены стойла, в которые необходимо расставить коров так, чтобы минимальное расстояние между коровами было как можно больше.
Категория: школьный раздел
Ответы:
var
n, k, i, j: integer;
l, r, m, g: longint;27
x: array[1..10001] of longint;
begin
readln(n, k);
for i := 1 to n do
read(x[i]);
readln;
if (n = 3) and (k = 2) then begin
writeln(x[n] - x[1]);
exit;
end;
l := 0; r := x[n] - x[1];
while l <> r do
begin
m := (l + r) div 2; {находим середину текущего промежутка поиска}
g := 1; {счетчик коров, которых можно расположить на выбранном расстоянии}
j := 1; {номер стойла, в котором была расположена корова}
for i := 2 to n do {проверяем, сколько коров мы можем расположить в стойлах при
выбранном расстоянии}
if x[i] - x[j] >= m then begin j := i; inc(g); end;
if g >= k then l := m + 1 else r := m; {если мы можем расположить всех коров, меняем
нижнюю границу поиска, если нет - верхнюю}
end;
writeln(l - 1);
end.
Вопрос: Дана точка А(х, у). Определить, принадлежит ли она прямоугольнику с вершинами в точках (х1, у1), (x2, у2), (x3, y3), (x4, y4).
Категория: школьный раздел
Ответы:
begin
  var n:=4;
  var xp:=new real[n];
  var yp:=new real[n];
  Writeln('Введите парами координаты четырех вершин');
  for var i:=0 to n-1 do Read(xp[i],yp[i]);
  var (x,y):=ReadReal2('Введите координаты точки:');
  var (i,j,c):=(0,n-1,False);
  while i<n do begin
    if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i]))
      and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c;
    j:=i;
    i+=1;
    end;
  if c then Writeln('Внутри')
  else Writeln('Не внутри')
end.
Вопрос: Требуется написать программу, при выполнении которой с клавиатуры считываются координаты точки (Х и У – действительные числа) и определяется принадлежность этой точки закрашенной области (включая границы).
Категория: школьный раздел
Ответы:
Var X,Y:real; Begin Write('X = '); ReadLn(X); Write('Y = '); ReadLn(Y); if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область')<br>else WriteLn('(',X,',',Y,') - мимо') End. остальные ВСЕ фигуры здесь
Вопрос: Для каждой введенной цифры (0-9) вывести соответствующее ей название на английском языке (0 — zero, 1 — one, 2 — two, ...).
Категория: школьный раздел
Ответы:
uses crt;
 
var n: string;
     i: integer;
 
 
begin clrscr;
write('Введите число (числа): '); readln(n);
for i := 1 to length(n) do
 case n[i] of
  '0': write('zero ');
  '1': write('one ');
  '2': write('two ');
  '3': write('three ');
  '4': write('four ');
  '5': write('five ');
  '6': write('six ');
  '7': write('seven ');
  '8': write('eight ');
  '9': write('nine ');
  end;
readkey; end.

Var n:integer; 
begin; 
readln(n); 
case n of 
0:writeln('zero'); 
1:writeln('one'); 
2:writeln('two'); 
3:writeln('three'); 
4:writeln('five'); 
6:writeln('six'); 
7:writeln('seven'); 
8:writeln('eight'); 
9:writeln('nine'); 
else writeln('Some number'); 
end; 
end.
Вопрос: Составить программу, которая по данному числу (1-12) выводит название соответствующего ему месяца на английском языке.
Категория: школьный раздел
Ответы:
var n:integer; 
begin; 
readln(n); 
case n of 
1:writeln('January'); 
2:writeln('February'); 
3:writeln('March'); 
4:writeln('April'); 
5:writeln('May'); 
6:writeln('June'); 
7:writeln('July'); 
8:writeln('August'); 
9:writeln('September'); 
10:writeln('October'); 
11:writeln('November'); 
12:writeln('December'); 
else writeln('Some number'); 
end; 
end.
Вопрос: Начальник областного Управления социальной защиты 
(*ответ*) назначается главой областной администрации в установленном порядке 
 избирается коллегией областного управления 
 назначается пенсионным фондом РФ 
 избирается клиентами органов соцзащиты 
Не аттестуются 
(*ответ*) беременные женщины 
 разведенные жены 
 матери - одиночки 
 многодетные женщины 
Необходимый для должностного продвижения кадровый капитал создается 
(*ответ*) системой повышения квалификации персонала 
 системой премиальных доплат, надбавок, компенсаций 
 ротацией кадров 
 путем набора людей на рынке труда 
Нормативный метод оценки культурного уровня задает определенные 
(*ответ*) модели, штампы, образцы для оценки культуры 
 методики оценки уровня культуры 
 схемы анализа уровня культуры 
 индикаторы высокой и низкой культуры 
Областное Управление социальной защиты 
(*ответ*) является структурным подразделением администрации области 
 подчиняется только представителю президента 
 является общественной организацией 
 подчиняется только Министерству труда и социальной защиты РФ 
Одна из основных задач Центра социальной помощи семье и детям - это 
(*ответ*) выявление причин неблагополучия конкретных семей и детей, их потребности в помощи 
 оказание гуманитарной помощи детям беженцев 
 выявление и учет безработных родителей, оказание помощи в трудоустройстве 
 выявление причин алкоголизма родителей и детей, оказание помощи при лечении 
Одновременно два вида государственных пенсий могут получать 
(*ответ*) лица, ставшие инвалидами вследствие военной травмы 
 беженцы из Чечни 
 пострадавшие в Чернобыльской аварии 
 воины-интернационалисты 
Одной из задач Центра социальной помощи семье и детям является 
(*ответ*) участие в работе по профилактике безнадзорности детей, защите их прав 
 обучение детей правилам хорошего тона 
 предотвращение нападение на детей бродячих собак 
 участие в работе по усыновлению безнадзорных детей 
Одной из основных задач аттестации является 
(*ответ*) формирование резерва кадров на выдвижение 
 формирование штатного расписания 
 снижение зарплаты сотрудникам 
 повышение квалификации персонала 
Одной из основных задач областного Управления социальной защиты является 
(*ответ*) организация пенсионного обеспечения и социального обслуживания нетрудоспособных 
 улучшение бытового обслуживания населения 
 оказание помощи беременным женщинам 
 организация детских садов и яслей 
Описание должности включает требования к 
(*ответ*) знаниям и умениям кандидата на должность 
 эстетическому образованию кандидата 
 семейному положению кандидата на должность 
 здоровью и физическому состоянию кандидата 
Описание должности содержит 
(*ответ*) должностные задачи, обязанности, права, ответственность 
 должностные инструкции 
 обоснование целей и планирование социальной работы 
 принципы и проблемы управления
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет». 
Пример: N = 44. Числа: 17, 26, 35.
Категория: школьный раздел
Ответы:
uses crt;
function Summ(n:longint):byte;
var m:longint;
    s:byte;
begin
s:=0;
m:=n;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
Summ:=s;
end;
var n,i:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
k:=0;
for i:=1 to n-1 do
if Summ(i)=Summ(n) then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Нет');
readln
end.
Вопрос: Составить программу, позволяющую получить словесное описание школьных отметок (1 — плохо, 2 — неудовлетворительно, 3 — удовлетворительно, 4 — хорошо, 5 — отлично)
Категория: школьный раздел
Ответы:
program OCEHKA;
uses crt;
var a,b:integer;
fign:boolean;
s:string;
begin
fign:=false;
write('Введите оценку  -  ');
ReadLn (a);
b:=a;
case b of
1:s:='Плохо';
2:s:='Неудовлетворительно';
3:s:='Удовлетворительно';
4:s:='Хорошо';
5:s:='Отлично';
end;
WriteLn (s);
ReadLn;
Вопрос: Написать программу, которая бы по введенному номеру единицы измерения (1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр) и длине отрезка L выдавала соответствующее значение длины отрезка в метрах.
Категория: школьный раздел
Ответы:
program name;
uses crt;
var
l,x,result:real;
begin
write('Длина отрезка: ');
readln(l);
write('Еденица измерения введеных вами данных. Где, 1 — дециметр; 2 — километр; 3 — метр; 4 — миллиметр; 5 — сантиметр). ');
readln(x);
if x=1 then result:=l/10;
if x=2 then result:=l*1000;
if x=3 then result:=l;
if x=4 then result:=l/1000;
if x=5 then result:=l/100;
write('Соответствующая длина отрезка: ', result, 'м.');
end.

Var
  l: Real;
  i: Byte;
BEGIN
Write('Введите значение: ');
Readln(l);
Write('Введите номер измерения (1-5): ');
Readln(i);
Case i of
  1: Writeln(l:5:2,'дм = ',l/10:5:2,'м');
  2: Writeln(l:5:2,'км = ',l*1000:5:2,'м');
  3: Writeln(l:5:2,'м = ',l:5:2,'м');
  4: Writeln(l:5:2,'мм = ',l/1000:10:10,'м');
  5: Writeln(l:5:2,'см = ',l/100:5:2,'м');
  Else Writeln('Неверный ввод');
end;
Readln
END.
Вопрос: Написать программу, которая бы по введенному номеру единицы измерения (1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер) и массе М выдавала соответствующее значение массы в килограммах.
Категория: школьный раздел
Ответы:
Program case7;
 Var n:integer;
 a,b:real;
 Begin
 Writeln('введите номер единицы массы N ');
 Readln(n);
 Writeln('введите массу ');
 Readln(a);
 Case n of
 1:Writeln('масса в кг =',a:4:2);
 2:Writeln(' масса в кг =',a*1000:4:2);
 3:Writeln(' масса в кг =',a/1000000:4:3);
 4:Writeln(' масса в кг =',a*1000:4:2);
 5:Writeln(' масса в кг =',a*100:4:2);
 Else Writeln('такого номера единицы массы не существует');
 end;
 Readln;
 End.
Вопрос: Даны два действительных положительных числа х и у. Арифметические действия над числами пронумерованы (1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление). Составить программу, которая по введенному номеру выполняет то или иное действие над числами.
Категория: школьный раздел
Ответы:
var r1,r2:real;
w:integer;
begin
writeln('Введите первое число(r1)');
readln(r1);
writeln('Введите второе число(r2)');
readln(r2);
writeln('1-сложение');
writeln('2-вычитание');
writeln('3-умножение');
writeln('4-деление');
readln(w);
case w of
     1:writeln(r1+r2);
     2:writeln('r1-r2 = ',r1-r2,' r2-r1 = ',r2-r1);
     3:writeln('r1*r2 = ',r1*r2);
     4:writeln('r1/r2 = ',r1/r2:0:5,' r2/r1 = ',r2/r1:0:5);
end;
end.
Вопрос: Написать программу, которая по номеру дня недели (целому числу от 1 до 7) выдает в качестве результата расписание уроков в вашем классе в этот день
Категория: школьный раздел
Ответы:
var
  a: integer;
 
begin
  readln(a);
  case a of 
    1: writeln('В понедельник у меня 4 урока!');
    2: writeln('Во вторник у меня 1 урок!');
    3: writeln('В среду у меня 3 урока!');
    4: writeln('В четверг у меня 4 урока1');
    5: writeln('В пятницу у меня 5 урока!');
    6: writeln('В в субботу у меня 4 урока!');
    7: writeln('В воскресенье я отдыхаю!');
  end;
end.

Var
  x: integer;
BEGIN
Repeat
 Write('Ввести число от 1 до 7: ');
 Readln(x);
until x in [1..7];
Case x of
  1: Writeln('4 пары');
  2: writeln('2 пары');
  3: writeln('4 пары');
  4: writeln('4 пары');
  5: writeln('2 пары');
  6: writeln('нет пар');
  7: writeln('нет пар');
end;
Readln
END.
Вопрос: Составить программу, которая по заданному году и номеру месяца определяет количество дней в этом месяце.
Категория: школьный раздел
Ответы:
const days: array [1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
var m, y: integer;
begin
  repeat
    Write('Введите год и месяц: '); ReadLn(y,m);
  until m in [1..12];
  if m<>2 then WriteLn(days[m])
  else WriteLn(days[m]+ord(((y mod 4=0)and(y mod 100<>0))or(y mod 400=0)));
end.
Вопрос: Составить программу, которая по введенному номеру месяца выдает, сколько дней в этом месяце. Год считать не високосным
Категория: школьный раздел
Ответы:
Var
    a: Integer;
 
Begin
    WriteLn ('Введите номер месяца');
    ReadLn (a);
    Case a Of
        1, 3, 5, 7, 8, 10, 12: WriteLn ('31 день');
        2: WriteLn ('28 дней');
        4, 6, 9, 11: WriteLn ('30 дней');
        End;
    ReadLn
End.
Вопрос: Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент) и длина окружности (третий элемент). Составить программу, которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы площадь круга.
Категория: школьный раздел
Ответы:
program sample;
label 1;
var
 el:integer;
 r,d,l,s:real;
begin
 s:=0;
 1: writeln("введите номер элемента:");
 readln(el);
 case el of
  1: begin writeln("введите радиус круга:"); readln(r); s:=3.14*sqr(r) end;
  2: begin writeln("введите диаметр:"); readln(d); s:=3.14*sqr(d/2) end;
  3: begin writeln("введите длину окружности:"); readln(l); s:={ф-ла нахождения площади через длину окр.} end;
  else: goto 1;
 end;
 writeln(s);
end.

var r,d,l,s:real;
    c:char;
begin
repeat
clrscr;
writeln('Определить площадь круга:');
writeln('по 1-радиусу, 2-диаметру, 3-длине окружности');
writeln('Другие клавиши - выход.');
readln(c);
case c of
'1':begin
    write('Введите радиус r=');
    readln(r);
    writeln('Площадь=',pi*r*r:0:2);
    readln
    end;
'2':begin
    write('Введите диаметр d=');
    readln(d);
    writeln('Площадь=',pi*d*d/4:0:2);
    readln
    end;
'3':begin
    write('Введите длину окружности l=');
    readln(l);
    writeln('Площадь=',sqr(l/2/pi)*pi:0:2);
    readln
    end;
else exit;
end;
until not(c in ['1'..'3']);
end.
Вопрос: Организационные средства кадрового менеджмента включают 
(*ответ*) оценку персонала, условия и оплату труда, ротации 
 совершенствование социальных отношений в коллективе 
 повышение культуры и эстетики производства 
 оргтехнику и соответствующие устройства 
Основной задачей аттестации является 
(*ответ*) определение служебного соответствия, перспективы служебного передвижения работника 
 укрепление трудовой дисциплины 
 повышение эффективности планирования работы 
 сокращение штатов. 
Основной принцип организации социальных служб на территории РФ 
(*ответ*) территориальный 
 децентрализованный 
 комбинированный 
 ведомственный 
От аттестации освобождаются 
(*ответ*) работники проработавшие менее одного года 
 работники со стажем работы в службе социальной защиты более 10 лет 
 крупные специалисты 
 руководители ведущих подразделений 
Отсутствие критической текучести кадров в учреждениях с преобладанием антимотивов объясняется 
(*ответ*) «социальным терпением» - невозможностью трудоустройства в других местах 
 страхом перед безработицей 
 апатией персонала 
 надеждами на лучшее будущее в том же учреждении 
Оценка кадров - это 
(*ответ*) сбор, анализ и систематизация информации о качествах, результатах работы человека 
 проверка выносливости работников 
 проведение собрания с общей оценкой работы 
 анализ аттестатов работников об окончании средней школы 
По своему положению социальный приют для детей и подростков является 
(*ответ*) домом-интернатом 
 колонией для несовершеннолетних 
 психической больницей 
 домом-ночлежкой 
Повышение квалификации - это 
(*ответ*) периодическая учеба кадров, предусматривающая пополнение, обновление знаний 
 защита диссертации 
 присвоение очередного квалификационного разряда 
 выдвижение на более высокую должность 
Подбор персонала - выявление и оценка работников для назначения 
(*ответ*) на определенную должность 
 награждения почетной грамотой 
 пенсий и пособий 
 повышенной зарплаты 
Председатель районного Комитета по социальным вопросам назначается и освобождается 
(*ответ*) главой администрации района 
 населением 
 главой областной администрации 
 главой областного Управления социальной защиты 
При исполнении служебных обязанностей социальные работники имеют право на 
(*ответ*) обеспечение одеждой, обувью, первоочередную установку квартирного телефона 
 50% скидку оплаты жилья, электричества, тепла и воды 
 бесплатную городскую квартиру 
 обеспечение бесплатным автотранспортом 
При монетаристском курсе на получение прибыли от разницы между куплей и продажей товаров 
(*ответ*) никогда не будет денег ни у большинства граждан, ни у государства 
 наступит всеобщее равенство 
 кто был ничем, тот станет всем 
 постепенно все станут богатыми
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Пусть элементами прямоугольного равнобедренного треугольника являются: 1) катет а; 2) гипотенуза b; 3) высота, опущенная из вершины прямого угла на гипотенузу h; 4) площадь S. Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника.
Категория: школьный раздел
Ответы:
USES Crt;
VAR
  x: byte; 
  xx: REAL;
BEGIN
  READ(x, xx);
  CASE x OF 
    1: BEGIN
         WRITELN('b=', xx*sqrt(2):0:4);
         WRITELN('h=', xx/sqrt(2):0:4);
         WRITELN('S=', sqr(xx)/2:0:4);
       END;
    2: BEGIN
         WRITELN('a=', xx/sqrt(2):0:4);
         WRITELN('h=', xx/2:0:4);
         WRITELN('S=', sqr(xx)/4:0:4);
       END;
    3: BEGIN
         WRITELN('a=', xx*sqrt(2):0:4);
         WRITELN('b=', xx*2:0:4);
         WRITELN('S=', xx:0:4);
       END;
    4: BEGIN
         WRITELN('a=', sqrt(xx*2):0:4);
         WRITELN('b=', 2*sqrt(xx):0:4);
         WRITELN('h=', sqrt(xx)/2:0:4);
       END;
  END;
  READLN;
  READLN
END.