nyuuzyou/soloby huggingface dataset:
Вопрос: В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю. (Справка: 1996 г. — год Крысы — начало очередного цикла.)
Категория: школьный раздел
Ответы:
uses crt;
var
n,i,m,g,gg:integer;
begin
writeln('vvedite god');
readln(n);
if n > 1983 then  begin
while n>1983 do
n:=n-60;
m:=n-1923;
end
else begin
while n<1983 do
n:=n+60;
m:=n-1983;
end;
g:=(m div 12)+1;
gg:=m mod 12;
case g of
1: write('zeleno');
2: write('krasno');
3: write('zelto');
4: write('belo');
5: write('cherno');
6: write('cherno');
end;
case gg of
1: write('j krusu');
2: write('j korovu');
3: write('go tigra');
4: write('go zajca');
5: write('go drakona');
6: write('j zmei');
7: write('j loshadi');
8: write('j ovcu');
9: write('j obizjanu');
10: write('j kyricu');
11: write('j sobaki');
0: write('j svinji');
end;
readln;
end.
Вопрос: Для целого числа k от 1 до 99 напечатать фразу «Мне k лет», учитывая при этом, что при некоторых значениях k слово «лет» надо заменить на слово «год» или «года». Например, 11 лет, 22 года, 51 год.
Категория: школьный раздел
Ответы:
uses crt;
var k:byte;
begin
clrscr;
repeat
write('Введите возраст от 1 до 99 k=');
readln(k);
until k in [1..99];
case k of
11..14:write('Мне ',k,' лет');
else
 case k mod 10 of
 1:write('Мне ',k,' год');
 2..4:write('Мне ',k,' года');
 else write('Мне ',k,' лет');
 end;
end;
readln
end.
Вопрос: Написать программу, которая по введенному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные дни (например, если введено число 1, то: 1 января — Новый год, 7 января — Рождество).
Категория: школьный раздел
Ответы:
uses crt;
var n: integer;
begin
write('Введите номер месяца: ');
readln(n);
case n of
1:
begin
writeln(' 1 января - Новый год');
writeln(' 7 января - Рождество Христово');
writeln('19 января - Крещение Господне');
end;
2:
begin
writeln(' 8 февраля - День Российской науки');
writeln('20 февраля - Международный день родного языка');
writeln('23 февраля - День защитника Отечества');
writeln('28 февраля - Масленица');
end;
3:
begin
writeln(' 1 марта - Праздник прихода весны');
writeln(' 8 марта - Международный женский день');
end;
4:
begin
writeln(' 1 арпеля - Международный день птиц');
writeln(' 7 апреля - День рождения Рунета');
writeln('12 апреля - Католическая Пасха');
writeln('23 апреля - Пасха');
end;
5:
begin
writeln(' 1 мая - День труда');
writeln(' 9 мая - День Победы');
writeln('10 мая - День матери');
writeln('15 мая - Международный день семьи');
end;
6:
begin
writeln(' 5 июня - Всемирный день охраны окружающей среды');
writeln(' 6 июня - Троица');
writeln('24 июня - Купала');
writeln('25 июня - День единения славян');
end;
7:
begin
writeln(' 6 июля - Всемирный день поцелуя');
writeln(' 8 июля - Всероссийский день семьи, любви и верности');
writeln('10 июля - День рыбака');
writeln('11 июля - Всемирный день шоколада');
end;
8:
begin
writeln('12 августа - День Военно-воздушных сил (День ВВС)');
writeln('22 августа - День Государственного флага Российской Федерации');
end;
9:
begin
writeln(' 1 сентября - День знаний');
writeln('21 сентября - Международный день мира');
writeln('30 сентября - День Интернета в России');
end;
10:
begin
writeln(' 1 октября - Международный день улыбки');
writeln(' 5 октября - Всемирный день учителя');
writeln('31 октября - Хэллоуин - канун Дня всех святых');
end;
11:
begin
writeln(' 1 ноября - День всех святых');
writeln(' 8 ноября - Международный день КВН');
writeln('17 ноября - Международный день студентов');
writeln('27 ноября - День матери России');
end;
12:
begin
writeln(' 6 декабря - День сетевика');
writeln('10 декабря - День прав человека');
writeln('23 декабря - Католический сочельник');
writeln('25 декабря - Католическое Рождество');
end;
else writeln('Нет такого месяца!');
end;
readkey
end.
Вопрос: Дано натуральное число N. Если оно делится на 4, вывести на экран ответ N = 4k (где k — соответствующее частное); если остаток от деления на 4 равен 1, N = 4k + 1; если остаток от деления на 4 равен 2, N = 4k + 2; если остаток от деления на 4 равен 3, N = 4k + 3. Например, 12 = 4 * 3, 22 = 4 * 5 + 2.
Категория: школьный раздел
Ответы:
Var
  n,k: Integer;
BEGIN
Writeln('Введите N: '); Readln(n);
Writeln('Введите K: '); Readln(k);
If n mod 4=0 Then Writeln(4*k)
Else If n mod 4=2 Then Writeln(4*k+2)
Else If n mod 4=3 Then Writeln(4*k+3);
END.

var a,b,c:integer;
begin
readln(a);
c:= (a mod 4);
case c of
0: begin b:=a div 4;
   write(a,'=4*',b);end;
1: begin b:=a div 4;
   write(a,'=4*',b,'+1');end;
  end;
end.
Вопрос: Дано натуральное число N. Вычислить: 
S= 1+1/2+1/3+1/4+...+1/N.
Категория: школьный раздел
Ответы:
var
  res:real;
  i,n:integer;
begin
  readln(n);
  res:=1;
  for i:=2 to n do
    res:=res+1/i;
  writeln(res)
end.
Вопрос: Дано натуральное число N. Вычислить: 
S=1+1/3+1/5+1/7+...+1/(2N+1).
Категория: школьный раздел
Ответы:
program test;
 var i, n: integer;
 s: real;
begin
 s := 0.0;
 for i := n downto 0 do
 s := s + 1.0/(2*n+1);
 writeln(s)
end.

Program Summa;
Var i, N:integer; S:real;
Begin
Write('N='); Readln(N);
S:=0;
For i:=1 to N do
S:=(S+i)/(2*N+1);
Writeln('N=', N);
End.
Вопрос: Дано натуральное число N. Вычислить: 
S=1-1/2+1/4-1/8+ ... + (-1)N*1/2N.
Категория: школьный раздел
Ответы:
uses crt;
var a,x: integer;
begin
write('x=');
readln(x);
if x<0 then a:=x+1 else
   if x>=10 then a:=0 else
      a:=2*x;
writeln('A=',a);
end.
Вопрос: Принципами подбора и расстановки кадров являются 
(*ответ*) правила, нормы, положения, которых придерживаются при подборе и расстановке людей в данной структуре 
 мнения, которыми руководствуются при распределении премии 
 правила, которые публикуются в стенной печати 
 положения, с которыми знакомят людей при приеме на работу 
Продолжительность отпуска медицинских работников Центра социальной помощи семье и детям 
(*ответ*) 36 рабочих дней 
 48 рабочих дней 
 24 рабочих дня 
 18 рабочих дней 
Продолжительность отпуска работников Центра помощи семье и детям 
(*ответ*) 24 рабочих дня 
 48 рабочих дней 
 36 рабочих дней 
 18 рабочих дней 
Противопоказаниями для приема в приют для детей являются наличие 
(*ответ*) заразных, инфекционных и психических болезней, педикулеза 
 грязный, нечистоплотный вид 
 опьянения 
 простуды, ОРЗ 
Профессионализм - это постоянно поддерживаемые на высоком уровне знания и умения, обеспечивающие 
(*ответ*) высокое качество труда и результатов 
 своевременное получение пенсий и пособий 
 издание печатных работ 
 положительную оценку в СМИ 
Работа в ночное время (с 22 до 6 ч.) компенсируется 
(*ответ*) доплатой в размере 50% часовой тарифной ставки за каждый час работы 
 предоставлением дополнительного отпуска 
 предоставлением отгула в дневное время 
 доплатой в размере 25% часовой тарифной ставки за каждый час работы 
Развитие сети учреждений социального обслуживания (СО) сдерживается сегодня 
(*ответ*) слабой правовой базой системы СО 
 юристами 
 низкой правовой грамотностью специалистов сферы СО 
 путаницей в законодательных актах 
Развитие сети учреждений социального обслуживания сильно сдерживается из-за 
(*ответ*) ограниченности финансовых ресурсов на федеральном, региональном и местном уровнях 
 плохого планирования 
 отсутствия должного контроля за расходами учреждений социального обслуживания 
 распыления финансовых ресурсов 
Районный Комитет по социальным вопросам содержится за счет 
(*ответ*) местного бюджета 
 пенсионного фонда 
 самоокупаемости 
 государственного бюджета 
Районный Комитет по социальным вопросам является 
(*ответ*) юридическим лицом и имеет свои банковские счета и гербовую печать 
 простым посредником 
 юридическим лицо, но не имеет своих банковских счетов 
 подразделением областного Управления и пользуется его счетами 
Расстановка кадров - это 
(*ответ*) распределение по должностям работников в данной организационной структуре 
 назначение сроков повышения работников 
 рассаживание людей на определенные места 
 составление штатного расписания 
Резко растущая социальная дифференциация как между различными странами, так и внутри отдельных стран в сочетании с борьбой за ресурсы несет в себе 
(*ответ*) высокую угрозу глобального потрясения 
 угрозу неоколониализма 
 опасность потепления климата 
 угрозу распространения СПИДа
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Дано натуральное число N. Вычислить: 
S=1/sin1+1/(sin1+sin2)+ ... + 1/(sin1+sin2+...sinN).
Категория: школьный раздел
Ответы:
var 
s, ssin: real; 
i, n: integer; 
 
begin readln(n);ssin := 0;s := 1; 
for i := 1 to n do 
begin ssin := ssin + sin(i);s := s * 1 / ssin; 
end; 
writeln(s); 
end.

#include <iostream>
#include <cmath>
#include <iomanip>
using namespace std;

int main() {
   int n;
   cin >> n;
   double sum_sin = 0;
   double sum = 0;
   for(int i = 1; i <= n; ++i) {
       sum_sin += sin(i);
       sum += 1 / sum_sin;
   }
   cout << fixed << setprecision(6)<<sum;
}
Вопрос: Дано натуральное число N. Вычислить произведение первых N сомножителей: 
P = 2/3*4/5*6/7 * ... 2N/(2N+1).
Категория: школьный раздел
Ответы:
uses crt;
var n:integer;
    a,b,x:real;
begin
write(' n='); readln(n);
for n:=1 to n do
x:=2*n/2*n+1;
writeln(' x=',x:4:1);
end.
Вопрос: Дано натуральное n. Вычислить: 
2/1+3/2+4/3+...+(n+1)/n.
Категория: школьный раздел
Ответы:
uses crt;
var
i,n:integer;
s:real;
begin clrscr;
write('n=');
read(n);
s:=0;
for i:=1 to n do
s:=s+(i+1)/i;
writeln;
writeln('summa=',s:3:4);
readkey;
end.
Вопрос: Вычислить: 
(1+sin0,1)(1+sin0,2)*...*(1+sin10).
Категория: школьный раздел
Ответы:
var
 result,index:real;
 begin
 index:=0.1;
 result:=1+sin(index);
 while index<=10 do
  begin
   index:=index+0.1;
   result:=result*(1+sin(index));
  end;
  Writeln(result:4:25);
 end.
Вопрос: Дано натуральное число N. Вычислить: 
cos1/sin1 * (cos1+cos2)/(sin1+sin2) * ... * (cos1+cos2+...cosN)/(sin1+sin2+...+sinN).
Категория: школьный раздел
Ответы:
Uses crt;
Var n,i:integer; x,y,z:real;
Begin clrscr;
  Write('vvedite n=');
  ReadLn(n);
  x:=0;
  y:=0;
  z:=0;
  for i:=1 to n do
    Begin
      y:=y+sin(i);
      z:=z+cos(i);
      x:=x+cos(i)/(y*z);
    End;
  Write('x=',x:4:8);
  ReadLn;
End.

Uses crt;
Var n,i:integer; x,y,z:real;
Begin clrscr;
  Write('введите N: ');
  ReadLn(N);
  x:=1;
  y:=0;
  z:=0;
  for i:=1 to N do
    Begin
      y:=y+sin(i);
      z:=z+cos(i);
      x:=x* (z/y);
    End;
  Write('x= ',x:4:8);
  ReadLn;
End.
Вопрос: Дано действительное число x. Вычислить: 
x-x3/3!+x5/5!-x7/7!+x9/9!-x11/11!+x13/13!.
Категория: школьный раздел
Ответы:
uses crt;
var x,t,s:real;
    k:integer;
begin
clrscr;
write('x=');
readln(x);
s:=x;
t:=x;
for k:=1 to 6 do
 begin
  t:=-t*x*x/(2*k*(2*k+1));
  s:=s+t;
 end;
write('S=',s:0:4);
readln
end.
Вопрос: Даны натуральное n, действительное x. Вычислить: 
S = sinx + sinsinx+ ... + sinsin... sinx.
Категория: школьный раздел
Ответы:
readln (x);
x1:=sin(x);
s:=x1;
for i:=2 to n do begin
x1:=x1*sin(x);
s:=s+x1;
end;
writeln (s:5:2);
Вопрос: Дано действительное x. Вычислить: 
(x-1)(x-3)(x-7)*...*(x-63)/(x-2)(x-4)(x-8)*...*(x-64).
Категория: школьный раздел
Ответы:
uses crt;
var x,d:real;
    i:integer;
begin
 clrscr;
  write('x=');
   readln(x);
  i:=1;d:=1;
   while i<=63 do
    begin
      d:=d*(x-i);
     inc(i,2);
    end;
  writeln('D = ',d:0:2);
 readkey;
end.
Вопрос: Дано натуральное п. Вычислить: 
S = 1*2 + 2*3*4 + ... + n (а + 1)*...*2n.
Категория: школьный раздел
Ответы:
uses crt;
var n,i,j:integer;
    k,s:real;
begin
clrscr;
n:=15;
s:=0;
for i:=1 to n do
 begin
  k:=1;
  for j:=1 to 2*i do
  k:=k*j;
  s:=s+k;
 end;
writeln('s=',s:20:0);
readln
end.
Вопрос: Дано натуральное число n. Вычислить: (1+1/1^2)*(1+1/2^2)*...*(1+1/n^2).
Категория: школьный раздел
Ответы:
var n,i:integer;
    p:real;
begin
write('n=');
readln(n);
p:=1;
for i:=1 to n do
p:=p*(1+1/(i*i));
write('P=',p:0:4);
readln
end.
Вопрос: Резко растущая социальная дифференциация как между различными странами, так и внутри отдельных стран приводит к 
(*ответ*) текущим локальным конфликтам 
 распространению наркотиков 
 текучести кадров 
 финансовому дефолту 
Ротация персонала - это 
(*ответ*) периодическая смена занимаемых должностей 
 восстановление на работе ранее уволенных людей 
 обмен должностей 
 хождение по кругу 
С отдельными гражданами центры могут заключать договоры на обслуживание клиентов, с выплатой части должностного оклада социального работника 
(*ответ*) пропорционально количеству клиентов 
 пропорционально величине пенсии клиента 
 пропорционально степени неподвижности клиента 
 независимо от числа клиентов 
Селекция работников - это 
(*ответ*) процесс и определенная технология отбора нужных кадров по критериям 
 выдвижение кандидатов в депутаты 
 отбор работников, годных к военной службе 
 выдвижение людей по принципу личной преданности 
Система оценки кадров - это сравнение знаний и умений кандидата с 
(*ответ*) должностными задачами, правами и обязанностями 
 требованиями экзаменов на кандидатский минимум 
 знаниями и умениями коллег по работе 
 программными требованиями учебного заведения 
Социальная работа учит относиться к человеку с точки зрения 
(*ответ*) гуманистических идеалов 
 классовой борьбы 
 уравниловки 
 рыночного утилитаризма 
Социально-психологическая культура управления - это культура 
(*ответ*) общения с руководством и подчиненными, одежды, деловых и телефонных переговоров 
 контроля, проверки, аудита, подготовки и проведения совещаний 
 работы с документами, деловой речи 
 бизнеса, предпринимательства, хозяйствования и экономического партнерства 
Социальный работник 3 - 5 разряда должен иметь 
(*ответ*) общее среднее и начальное профессиональное образование 
 высшее профессиональное образование 
 высшее образование 
 среднее специальное образование 
Социальный работник 6 - 8 разряда должен иметь 
(*ответ*) высшее профессиональное образование или среднее профессиональное и стаж работы по профилю не менее 3 лет 
 среднее профессиональное образование и стаж работы по профилю не менее 1 года 
 среднее профессиональное образование и стаж работы по профилю не менее 8 лет 
 высшее профессиональное образование и стаж работы по профилю не менее 8 лет 
Социальный работник должен быть физически и психически здоровым, потому что 
(*ответ*) социальная работа была и остается одной из самых трудных 
 ему надо бороться с бюрократизмом 
 ему приходится много ходить 
 ему нужно работать физически и психически 
Социальный работник должен иметь 
(*ответ*) среднее специальное образование по профилю социальной работы 
 высшее специальное образование по профилю социальной работы 
 высшее техническое образование 
 общее среднее образование 
Специалист по социальной работе - лицо, закончившее 
(*ответ*) высшее учебное заведение по профилю социальной работы 
 среднюю школу и имеющее опыт работы 
 аспирантуру и защитившее диссертацию 
 высшее учебное заведение по любой специальности
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: 9. Систематический (недиверсифицируемый) риск
 (*ответ к тесту*) определяет общий риск на всю совокупность вложений в фондовые инструменты
 риск, связанный с конкретной ценной бумагой
10. Оценка стоимости предприятия основывается на следующих принципах:
 (*ответ к тесту*) Соответствие спроса и предложения , конкуренция, зависимость от внешней среды, изменения стоимости и 
т. д.
 типичность мотировок продавца и покупателя, нахождение объекта на открытом рынке достаточное время, определение цены как разумного вознаграждения за объект…
1. Инвестиция считается нерискованной, если
 (*ответ к тесту*) доход по этой инвестиции гарантирован
 в результате непредвиденных событий выплаты не будут проведены, или же вы получите лишь небольшой процент, а сами бумаги не будут выкуплены
2. Основные источники инвестиций это
 сбережения населения
 (*ответ к тесту*) прибыль, получаемая предприятиями
3. Объекты инвестирования и сбережения -это
 потребительский кредит
 (*ответ к тесту*) финансовые и материальные активы
 текущие сбережения
4. Консервативные инвесторы характеризуются
 (*ответ к тесту*) минимизацией возможного риска, главной задачей ставят надежность вложений
 склонностью к риску
 лояльным отношением к риску, включением его в свою инвестиционную стратегию
5. Какими методами может воспользоваться финансовый менеджер при формировании портфеля инвестиций
 учета нынешней стоимости прибыли
 (*ответ к тесту*) любым из вышеперечисленных
 (*ответ к тесту*) любой комбинацией вышеперечисленного
 метод расчета времени окупаемости
 расчета средней прибыли
Категория: экономические
Ответы:
Правильные вопросы выделены по тесту
тест уже прошел свою проверку
надеюсь на плюс 1 голос к ответу
Вопрос: Вычислить по схеме Горнера: 
у =х10 +2х9 +3х8 + ... + 10x+ 11.
Категория: школьный раздел
Ответы:
Program xa;
var
 y,x:longint;
 i,k,j,m:integer;
begin
 Writeln('BBedute 4uClo');
 readln(x);
 m:=x;
 y:=0;
 k:=1;
 for i:=10 downto 0 do
 begin
  if i<>0 then
  begin
   x:=m;
   for j:=1 to i-1 do
    x:=x*m
  end
  else
   x:=1;
  y:=y+x*k;
  inc(k);
 end;
 Writeln('y= ' ,y);
 readln
end.
Вопрос: Числа Фибоначчи (fп) определяются формулами 
fo =f1=1, fn= fn-1 + fn-2 при n = 2, 3, ... 
Для данного значения р определить fp.
Категория: школьный раздел
Ответы:
uses
  crt; 
function Fib(n : byte) : longint;
begin
  If (n=0) or (n=1) then Fib := 1
  else Fib := Fib(n-1) + Fib(n-2);
end;  
var
  n : byte;
begin
  clrscr;
  writeln('f(40) = ',Fib(40));
  readln;
end.
Вопрос: Найти наименьший номер последовательности, заданной рекуррентной формулой, для которого выполняется условие |аn- аn-1| < е, где е — малая величина. Вывести на экран этот номер и все элементы аi, где i = 1, 2, ..., n. 
an=2+a2n-1,a1=2
Категория: школьный раздел
Ответы:
var a1,a,e:real;
    n:integer;
begin
repeat
write('Введите малую величину 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
a1:=2;
a:=(2+a1*a1)/(2*a1);
writeln('n=1 a=',a1:0:5);
writeln('n=2 a=',a:0:5);
n:=2;
while abs(a1-a)>=e do
 begin
  a1:=a;
  n:=n+1;
  a:=(2+a1*a1)/(2*a1);
  writeln('n=',n,' a=',a:0:5);
 end;
write('n=',n);
end.
Вопрос: Натуральные числа а, b, с называются числами Пифагора, если выполняется условие а2 + b2 = с2. Напечатать все числа Пифагора, меньшие N.
Категория: школьный раздел
Ответы:
var
a,b,n:integer;
begin
readln(n);
for a:=1 to n-1 do
  for b:=1 to n-1 do
 if (sqrt (a*a+b*b)=int( sqrt (a*a+b*b))) and( sqrt (a*a+b*b)<n) then writeln (a,' ',b,' ',trunc(sqrt(a*a+b*b)));
end.
Вопрос: Найти наибольшую и наименьшую цифры в записи данного натурального числа.
Категория: школьный раздел
Ответы:
Var
  n: Longint;
  i,min,max: Byte;
BEGIN
Write('Введите число: ');
Readln(n);
min:=9;
max:=0;
While n>0 do
begin
  i:=n mod 10;
  n:=n div 10;
  If i<min Then min:=i;
  If i>max Then max:=i;
end;
Writeln('Наиб. цифра: ',max);
Writeln('Наим. цифра: ',min);
END.
Вопрос: Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет». 
Пример: N = 44. Числа: 17, 26, 35.
Категория: школьный раздел
Ответы:
var
a,n,sn,s,i,n1:integer;
begin
readln(n);
n1:=n;
repeat
sn:=sn+n1 mod 10;
n1:=n1 div 10;
until n1=0;
for i:=1 to n-1 do
begin
a:=i;
s:=0;
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
if s=sn then write(i,' ');
end;
readln;
end.
Вопрос: Составить программу которая находит наибольшее значение отношения трехзначного числа к сумме его цифр.
Категория: школьный раздел
Ответы:
var
imax,s,i:integer;
max:real;
begin
for i:=100 to 999 do
begin
s:=i mod 10+i div 100+(i div 10)mod 10;
if i/s>max then begin
max:=i/s;
imax:=i;
end;
end;
writeln('chislo=',imax,' max otnoshenie=',max:5:3);
readln;
end.
Вопрос: Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых произведение всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет». 
Пример: N = 44. Числа: 18, 24
Категория: школьный раздел
Ответы:
uses crt;
var n,m,i,p:longint;
    s,k:byte;
begin
clrscr;
repeat
write('Введите натуральное число N=');
readln(n);
until n>0;
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
writeln('Числа от 1 до ',n-1,', у которых произведение цифр=',s);
k:=0;
for i:=1 to n-1 do
 begin
  m:=i;
  p:=1;
  while m>0 do
   begin
    p:=p*(m mod 10);
    m:=m div 10;
   end;
  if p=s then
   begin
    k:=1;
    write(i,' ');
   end;
 end;
if k=0 then write('Таких чисел нет');
readln
end.
Вопрос: Дано натуральное число N (N > 9). Определить количество нулей, идущих подряд в младших разрядах данного числа. 
Пример: N = 1020000. Количество нулей равно четырем.
Категория: школьный раздел
Ответы:
var x:longint;
    i,k,kmax:integer;
begin
 writeln('x=?');
 readln(x);
 kmax:=0;
 k:=0;
 while x>0 do
  begin
   if x mod 10 = 0
    then inc(k)
    else
     begin
      if k>kmax
       then kmax:=k;
      k:=0
     end;
   x:=x div 10
  end;
  writeln(kmax)
end.
Вопрос: Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.
Категория: школьный раздел
Ответы:
uses crt;
var n,i,j:integer;
    f:boolean;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
for i:=1 to n do
 begin
  f:=true;
  j:=i;
  while (j>0)and f do
  if (j mod 10=0)or(i mod (j mod 10)<>0) then f:=false
  else j:=j div 10;
  if f then write(i,' ');
 end;
readln
end.
Вопрос: Специалистам по социальной работе, занятым с наиболее сложными категориями населения устанавливается 
(*ответ*) повышенный (на 1,например) разряд оплаты труда по сравнению с ЕТС 
 премиальная оплата труда 
 такой же разряд как и другим специалистам по СР 
 специальные оклады по усмотрению руководства 
Специалистам, работающим в селе, оплата повышается на 
(*ответ*) 25% 
 35% 
 50% 
 15% 
Территориальный центр социального обслуживания - учреждение социальной защиты населения для оказания 
(*ответ*) нуждающимся гражданам (старики, инвалиды) различных видов социальной помощи 
 специальной помощи инвалидам 
 различных видов социальной помощи всем пенсионерам по возрасту 
 всем гражданам определенного вида социальной помощи 
Управление изменениями культуры - это 
(*ответ*) попытки одного человека вмешаться, вторгнуться в привычки другого 
 благотворительность одного человека в отношении другого 
 попытки одного человека занять деньги у другого 
 попытки одного человека занять место другого 
Управление культурными изменениями производится на основе анализа оценок уровней культуры и должно в первую очередь решить вопрос 
(*ответ*) что, где и почему нужно изменять 
 кто будет платить 
 во сколько это обойдется 
 кто и когда должен изменять 
Фактором эффективности социальной работы является 
(*ответ*) полное и квалифицированное оказание услуг социально-психологического характера 
 несвоевременная индексация заработной платы 
 высокая текучесть кадров 
 низкий уровень заработной платы 
Финансирование институтов социального обслуживания осуществляется 
(*ответ*) на бюджетной основе 
 на основе гуманитарной помощи 
 местной промышленностью 
 за счет муниципалитетов 
Финансирование областного Управления социальной защиты производится из 
(*ответ*) находящегося в его ведении областного фонда поддержки населения 
 частными предпринимателями 
 взносов частных граждан 
 благотворительных фондов 
Цель деятельности Центра социальной помощи семье и детям - способствовать реализации их прав на 
(*ответ*) защиту и помощь со стороны государства 
 любить и быть любимым 
 участие в общественной жизни 
 бесплатную медицинскую помощь 
Центр планирования семьи предназначен для 
(*ответ*) социально-медицинской охраны репродуктивного здоровья населения 
 оказания помощи в обучении детей 
 ориентации членов семьи в выборе профессии 
 консультирования по планированию бюджета семьи 
Центр реабилитации детей с ограниченными возможностями предназначен для социальной и медицинской реабилитации детей 
(*ответ*) с ДЦП, нарушениями зрения, слуха 
 с сердечно-сосудистыми заболеваниями 
 перенесших костный туберкулез 
 с нарушениями речи, дикции
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Дано натуральное число N. Получить новое число М, которое образуется из числа N путем замены последней цифры на наименьшую цифру в записи числа N. 
Пример: N = 128452, М = 128451.
Категория: школьный раздел
Ответы:
uses crt;
var n,m,mn:integer;
begin
write('n=');
read(n);
m:=n;
mn:=9;
while m>0 do
 begin
  if m mod 10<mn then mn:=m mod 10;
  m:=m div 10;
 end;
n:=n-n mod 10+mn;
write(n);
end.
Вопрос: Дано натуральное число N. Получить новое число М, которое образуется из числа N путем замены последней цифры на наибольшую цифру в записи числа N. 
Пример: N = 128452, М = 128458.
Категория: школьный раздел
Ответы:
var n, t: Longint;
begin
  Read(n); t:=n; while t>9 do t:=t div 10;
  WriteLn(n div 10 * 10 + t);
end.
Вопрос: Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.
Категория: школьный раздел
Ответы:
uses crt;
var m,n:integer;
    mm,mn:set of byte;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа до 9999');
readln(m,n);
until(m>0)and(m<10000)and(n>0)and(n<10000);
mm:=[];
while m>0 do
 begin
  mm:=mm+[m mod 10];
  m:=m div 10
 end;
mn:=[];
while n>0 do
 begin
  mn:=mn+[n mod 10];
  n:=n div 10
 end;
if mm*mn<>[] then write('В этих числах есть одинаковые цифры')
else write('В этих числах нет одинаковых цифр');
readln
end.
Вопрос: Дано натуральное число N (N > 9). Определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах. 
Пример: N = 10025000. Количество нулей равно двум.
Категория: школьный раздел
Ответы:
var n0: integer; n: longint;
 begin
  readln(n);
  while n mod 10 = 0 do n:= n div 10;
  n0:=0;
  while n<>0 do begin
    if n mod 10 = 0 then inc(n0);
    n:= n div 10;
   end;
  writeln(n0);
  readln;
 end.
Вопрос: Натуральное число М называется совершенным, если оно равно сумме всех своих делителей, включая 1, но исключая себя. Напечатать все совершенные числа, меньшие заданного числа N
Категория: школьный раздел
Ответы:
program delitel_cisla;
var i,h,del,f:longint;
begin
writeln('napiste maximalni cislo');
f:=0;
readln(i);
while i>=1
 do
 begin
   for del:=1 to i do
    if(i mod del)=0 then
    begin
     {writeln('delitel= ', del);}
       f:=f+del;
    end;
   h:=f-del;
   {writeln('suma delitelej=', h);}
   f:=0;
   i:=i-1;
    if h=del then writeln('sovershennoje cislo = ', h)
 end;
end.
Вопрос: Дано целое n > 2. Напечатать все простые числа из диапазона [2, n].
Категория: школьный раздел
Ответы:
program prak;
uses crt;
var n,k,i:integer;
begin
clrscr;
write('Введите целое число n=');
readln (n);
for i:=2 to n do
if n mod i=0 then n:=n+1;
if n=0 then
writeln('n=',n);
end.
Вопрос: Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наименьшее значение. 
Пример: N = 4548. Количество цифр с наименьшим значением равно двум (две цифры 4).
Категория: школьный раздел
Ответы:
Var n,min,t,k:longint;
Begin
    write('Введите n: ');readln(n);
    t:=n;min:=9;
    While t>0 do
    Begin
      if t mod 10 < min then min:=t mod 10;
      t:=t div 10;
    End;
    t:=n;
    While t>0 do
    Begin
      if t mod 10 = min then inc(k);
      t:=t div 10;
    End;
    writeln('Min = ',min);
    writeln('Цифр с наименьшим значением = ',k);
    readln;
End.
Вопрос: Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наибольшее значение. 
Пример: N = 1808. Количество цифр с наибольшим значением равно двум (две цифры 8)
Категория: школьный раздел
Ответы:
uses crt;
var n:longint;
    c,k,mx:byte;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
mx:=0;
k:=1;
while n>0 do
 begin
  c:=n mod 10;
  if c>mx then
   begin
    mx:=c;
    k:=1;
   end
  else if c=mx then k:=k+1;
  n:=n div 10;
 end;
write('Максимальная цифра ',mx,' количесиво=',k);
readln
end.
Вопрос: Палиндром — это сочетания символов, которые читаются одинаково слева направо и справа налево. Например, числа 4884, 121 являются палиндромами. Составить программу, которая определяет, является ли заданное натуральное число палиндромом.
Категория: школьный раздел
Ответы:
var
  n, n1, m, a, b, l, i: longint;
begin
  readln(a, b);
  for n := a to b do
    begin
      l := 0;
      n1 := n;
      while n1 > 9 do
        begin
          m := n1 mod 10;
          l := l * 10 + m;
          n1 := n1 div 10
        end;
      l := l * 10 + n1;
      if n = l
        then writeln(n)
    end;
end.
Вопрос: Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.
Категория: школьный раздел
Ответы:
uses crt;
var n,m,k,i:word;
begin
clrscr;
repeat
writeln('Введите натуральное число <99999');
readln(n);
until(n>0)and(n<99999);
for i:=9 downto 0 do
 begin
  m:=n;
  while m>0 do
   begin
    k:=m mod 10;
    if k=i then
     begin
      write(k);
      break;
     end
    else m:=m div 10;
   end;
 end;
readln
end.
Вопрос: Центр социального обслуживания населения оплачивает расходы 
(*ответ*) за счет самостоятельного баланса, расчетных и других счетов в банках 
 с помощью государства 
 за счет города и области по предъявлении документов 
 по счетам муниципалитета 
Центр социального обслуживания населения предназначен для 
(*ответ*) обслуживания на дому одиноких, престарелых и инвалидов 
 социально-бытового и медицинского обслуживания семей, имеющих детей-инвалидов 
 социально-бытового и медицинского обслуживания пенсионеров 
 социально-бытового и медицинского обслуживания населения 
Центр срочной социальной помощи предназначен для оказания 
(*ответ*) адресной социальной помощи малообеспеченным гражданам, их учета и консультирования 
 помощи лицам, прибывшим из «горячих точек» 
 срочной помощи гражданам, потерявшим работу 
 медико- психологических услуг, трудоустройство граждан 
Чтобы власть была восприимчива к требованиям жизни, она должна быть 
(*ответ*) поставлена под контроль общества 
 мягкотелой 
 легитимной 
 незначительной 
Чтобы знание основ профессиональной этики проявлялось в повседневной социальной работе необходимо развивать у специалистов 
(*ответ*) этическую восприимчивость 
 любовь к труду 
 чувство собственного достоинства 
 деловитость и решительность
В обязанности социального работника входит организация общественной защиты несовершеннолетних правонарушителей:
(*ответ*) да
 нет
В обязанности социального работника не входит проведение юридических консультаций:
(*ответ*) неверно
 верно
Деятельность благотворительных организаций осуществляется на основе Федерального закона "О благотворительной деятельности и благотворительных организациях":
(*ответ*) да
 нет
Диагностическая - функция социального работника по изучению особенностей семьи, группы, постановка социального диагноза:
(*ответ*) верно
 неверно
К группам социального риска относят многодетные семьи и семьи, имеющие инвалида:
(*ответ*) да
 нет
Негосударственные благотворительные организации не входят в структуру социальной работы:
(*ответ*) неверно
 верно
Общество может выступать в качестве клиента социальной работы:
(*ответ*) да
 нет
Организационная функция социального работника предусматривает использование законов, правовых актов, направленных на оказание юридической помощи:
(*ответ*) нет
 да
Педагогический такт - соблюдение принципа общения с людьми:
(*ответ*) верно
 неверно
Педагогическое мастерство включает педагогическую технику и педагогический такт:
(*ответ*) верно
 неверно
Политические силы, экономические условия не оказывают действие на труд социального работника:
(*ответ*) неверно
 верно
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Составить программу нахождения наибольшего общего делителя (НОД) и наименьшего общего кратного (НОК) двух натуральных чисел НОК(А, В) = (A*B)/НОД(A,B). Использовать подпрограмму алгоритма Евклида для определения НОД
Категория: школьный раздел
Ответы:
uses crt;
 var a,b,p : real;
     nod,nok : real;
 begin
   clrscr;
   write('a=');readln(a);
   write('b=');readln(b);
   p:=a*b;
   while a<>b do
    if a>b then a:=a-b
           else b:=b-a;
   nod:=a;
   nok:=p/nod;
   writeln('НОД:',a);
   write('НОК:',nok);
   readln;
 end.

uses crt;
 var a,b,p : real;
     nod,nok : real;
 begin
   clrscr;
   write('a=');readln(a);
   write('b=');readln(b);
   p:=a*b;
   while a<>b do
    if a>b then a:=a-b
           else b:=b-a;
   nod:=a;
   nok:=p/nod;
   writeln('НОД:',a);
   write('НОК:',nok);
   readln;
 end.
Вопрос: Вычислить площадь правильного шестиугольника со стороной а, используя подпрограмму вычисления площади треугольника.
Категория: школьный раздел
Ответы:
uses crt;
var a:real;
 
function s(a:real):real;
begin
 s:=a*a*sqrt(3)/4;
end;
 
begin
 clrscr;
 write('A -> ');
 readln(a);
 writeln('S=',6*s(a):0:5);
 readln;
end.
Вопрос: Даны две дроби A/B и C/D (А, В, С, D — натуральные числа). Составить программу деления дроби на дробь. Ответ должен быть несократимой дробью. Использовать подпрограмму алгоритма Евклида для определения НОД.
Категория: школьный раздел
Ответы:
var n, m, a, b, c, d, e, f, g:integer;
Function Nod (m, n: integer): integer;
Begin
    While m<>n do
       If m>n then m:=m-n
                   Else n:=n-m;
       Nod:=m
End;
Begin
     Write('Ведите числители и знаменатели дробей: ');
     Read(a,b,c,d);
     e:=a*d;
     f:=b*c;
     if e=0 then writeln(e)
        else
            begin
                 g := nod(abs(e),abs(f));
                 e := e div g;
                 f:= f div  g;
                 writeln(e,'/',f);
            end;
end.
Вопрос: Даны две дроби A/B и C/D (А, В, С, D — натуральные числа). Составить программу умножения дроби на дробь. Ответ должен быть несократимой дробью. Использовать подпрограмму алгоритма Евклида для определения НОД.
Категория: школьный раздел
Ответы:
uses
  crt;
function NOD(a,b:integer):integer;
begin
    while (a<>0) and (b<>0) do
        if a >= b then
           a:=a mod b
        else
           b:=b mod a;
    if a<>0 then NOD:=a
    else NOD:=b;    
end;
 
procedure myprocedure(a, b, c, d: integer);
var
  e, f, z: integer;
begin
  e := a * c;
  f := b * d;
  z:=NOD(e,f);
  writeln('полученная дробь = ', e div z, '/', f div z);
end;
 
begin
  myprocedure(1, 2, 4, 8);
  readln;
end.
Вопрос: Даны две дроби A/B и C/D (А, В, С, D — натуральные числа). Составить программу вычитания из первой дроби второй. Ответ должен быть несократимой дробью. Использовать подпрограмму алгоритма Евклида для определения НОД
Категория: школьный раздел
Ответы:
uses crt;
var a,b,c,d,e,f,k:longint;
 
function nod(a,b:longint):longint;
begin
 if a=b then nod:=a else if a>b then nod:=nod(a-b,b) else nod:=nod(b-a,a);
end;
 
begin
 clrscr;
 write('A/B C/D -> ');
 readln(a,b,c,d);
 e:=a*d-b*c;
 f:=b*d;
 k:=nod(e,f);
 e:=e div k;
 f:=f div k;
 writeln(a,'/',b,' - ',c,'/',d,' = ',e,'/',f);
 readln;
end.
Вопрос: Написать программу вычисления суммы 1 + 1/2 + 1/3 + ... + 1/n для заданного числа n. Результат представить в виде несократимой дроби p/q (р, q — натуральные). Использовать подпрограммы алгоритма Евклида для определения НОД и сложения двух простых дробей.
Категория: школьный раздел
Ответы:
function sum(n:integer):real;
var s:real;
begin
  s:=1/n;
  if n>1 then s:=s+sum(n-1);
  sum:=s;
end;
var n:integer;
begin
  readln(n);
  write('S = ',sum(n):0:3);
end.
Вопрос: Даны числа X, Y, Z, Т — длины сторон четырехугольника. Вычислить его площадь, если угол между сторонами длиной X и У — прямой. Использовать две подпрограммы для вычисления площадей: прямоугольного треугольника и прямоугольника
Категория: школьный раздел
Ответы:
function pl_pr(x,y:real):real;
begin
pl_pr:=x*y/2;
end;
function pl_tr(x,y,z:real):real;
var p:real;
begin
p:=(x+y+z)/2;
pl_tr:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
var x,y,z,t,d,s:real;
begin
repeat
writeln('Введите длины сторон x,y>0');
readln(x,y);
until(x>0)and(y>0);
d:=sqrt(x*x+y*y);
repeat
writeln('Введите длины других двух сторон >0 и z+t>',d:0:2);
readln(z,t);
until(z>0)and(t>0)and(z+t>d);
s:=pl_pr(x,y)+pl_tr(z,t,d);
write('Площадь четырехугольника=',s:0:2)
end.
Вопрос: Дано простое число. Найти следующее за ним простое число.
Категория: школьный раздел
Ответы:
uses crt;
function Prost(n:longint):boolean;
var i:longint;
    f:boolean;
begin
if n<2 then f:=false
else
 begin
  f:=true;
  i:=2;
  while (i*i<=n)and f do
  if n mod i=0 then f:=false
  else i:=i+1;
 end;
Prost:=f;
end;
var n,i:longint;
begin
clrscr;
repeat
write('Введите простое число n=');
readln(n);
until Prost(n);
i:=n+1;
while not Prost(i) do
i:=i+1;
write('Следующее простое число=',i);
readln
end.
Вопрос: Для заданного натурального числа n найти наименьший нечетный натуральный делитель k (k =/ 1).
Категория: школьный раздел
Ответы:
function del(n:integer):integer;
var d:integer;
begin
d:=2;
while n mod d<>0 do inc(d);
del:=d
end;
var n:integer;
begin
clrscr;
write('Введите натуральное n=');
readln(n);
if n=1 then write('Нет делителя не равного 1')
else write('Минимальный делитель, не равный 1=',del(n));
readln
end.
Вопрос: Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано число 156, нужно получить 651).
Категория: школьный раздел
Ответы:
uses crt;
var
   a,b:integer;
 
function asd(x,i:integer) :integer;
begin
   if x=0 then asd:=-b
   else begin
      if x div 10 <>0 then
         b:=b +i*10+ x mod 10;
      asd:=(i*10+ x mod 10) + asd(x div 10,i*10+ x mod 10 )
   end;
end;
 
begin
   clrscr;
   b:=0;
   readln(a);
   writeln(asd(a,0));
   readkey
end.
Вопрос: Правозащитная функция социального работника - организация социальных служб на предприятиях, привлечение к работе общественности:
(*ответ*) неверно
 верно
При воспитательном подходе к решению проблем социальный работник выступает в роли педагога, консультанта, эксперта:
(*ответ*) верно
 неверно
Профессия "социальный работник" введена в России в:
(*ответ*) 1991 г.
 1917 г.
 2000 г.
 1965 г.
Психический процесс состоит из восприятия, памяти, воображения, мышления:
(*ответ*) да
 нет
Психологическая функция социального работника предусматривает консультации по вопросам межличностных отношений:
(*ответ*) верно
 неверно
Работа с персоналом - подбор, обучение, расстановка и воспитание кадров, оказание помощи и контроль деятельности:
(*ответ*) верно
 неверно
Самоконтроль, самокритичность - психологические качества личности:
(*ответ*) да
 нет
Самообладание - показатель социальной эмоциональной зрелости личности:
(*ответ*) да
 нет
Служба помощи населению - субъект социальной работы:
(*ответ*) верно
 неверно
Служба социальной реабилитации занимается открытием клубов знакомств, педиатрических кабинетов:
(*ответ*) неверно
 верно
Служба, занимающаяся семейным консультированием, семейным просвещением:
(*ответ*) по оказанию помощи семье
 социально-бытовой помощи
 социальной реабилитации
 социальной профилактики
Служба, предоставляющая услуги определенной категории лиц, связанные с облегчением быта:
(*ответ*) социально-бытовой помощи
 по оказанию помощи семье
 социальной реабилитации
 социальной профилактики
Социально-медицинская функция социального работника - организация работы по профилактике заболеваний:
(*ответ*) да
 нет
Социально-педагогическая функция социального работника - установление контакта с нуждающимися, организация обмена информацией:
(*ответ*) нет
 да
Социальный работник обязан соблюдать профессиональную тайну:
(*ответ*) да
 нет
Установка - готовность человека действовать определенным образом:
(*ответ*) верно
 неверно
Функция социального работника, определяющая возможные пути развития событий, происходящих в семье, и выработку модели поведения:
(*ответ*) прогностическая
 диагностическая
 правозащитная
 организационная
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Имеется часть катушки с автобусными билетами. Номер билета шестизначный. Составить программу, определяющую количество счастливых билетов на катушке, если меньший номер билета — N, больший — М (билет является счастливым, если сумма первых трех его цифр равна сумме последних трех).
Категория: школьный раздел
Ответы:
Program sd;
uses crt;
var
a,b,c,x,s,y,z,r,p: integer;
Begin
clrscr;
Writeln('Введите  номер билета:');
readln(x);
s:=x div 100000;
r:=x div 10000 mod 10;
y:=x div 1000 mod 10;
c:=x div 100 mod 10;
a:=x mod 100 div  10;
b:=x mod 10;
z:=y+r+s;
p:=a+b+c;
if z=p then
begin
write('билет счастливый');
writeln('  ',z,' = ',p);
end
else
writeln('билет не счастливый   '  ,z,' <> ',p);
readln;
End.
Вопрос: Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т. д. Через сколько таких действий получится нуль?
Категория: школьный раздел
Ответы:
var n,x,k: integer;
 
//Функция нахождения суммы цифр числа n
function sum(n: integer): integer;
var s: integer;
begin
  s:= 0; //в начале сумма равна 0
  while (n>0) do //Пока число положительное выполняем цикл
    begin
      s:= s+n mod 10; //Находим остаток от деления числа n на 10, суммируем  
      n:= n div 10;  //Находим целую часть от деления числа n  на 10
    end;
  sum := s; 
end;
 
begin
  readln(n);
  x:= n;   
  k:= 0;   
  while (x>0) do //пока число положительное продолжаем выполнять цикл
    begin
      x:=x-sum(x); //от числа отнимаем сумму его цифр
      inc(k); //увеличиваем счетчик
    end;
  writeln('k=', k);
end.
Вопрос: На отрезке [100, N] (2^10 < N < 2^31) найти количество чисел, составленных из цифр а, b, с.
Категория: школьный раздел
Ответы:
function f(a, b, c: Integer; n: Longint): Longint;
var
  i, m, r: Longint;
  k, ka, kb, kc, ko: Integer;
begin
  r:=0;
  for i:=100 to n do begin
    if i mod 100000=0 then Write(i,', ',r,#13);
    m:=i; ka:=0; kb:=0; kc:=0; ko:=0;
    while (m>0) and (ko=0) do begin
      k:=m mod 10;
      if k=a then Inc(ka)
      else if k=b then Inc(kb)
      else if k=c then Inc(kc)
      else Inc(ko);
      m:=m div 10;
    end;
    if (ka>0) and (kb>0) and (kc>0) and (ko=0) then Inc(r);
  end;
  f:=r;
end;
var
  a, b, c, m: Integer;
  n: Longint;
begin
  Write('Введите цифры a, b, c и число n: '); ReadLn(a,b,c,n);
  m:=f(a,b,c,n);
  WriteLn('На отрезке 100..',n,' чисел из цифр ',a,', ',b,', ',c,': ',m);
end.
Вопрос: Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность (например, 1234, 5789).
Категория: школьный раздел
Ответы:
var n, i : Byte; d : array [1..9] of Byte;
 
procedure WriteD;
begin
  for var i := 1 to n do Write(d[i]); Write(#32);
end;
 
procedure NextD(r : Byte);
begin
  if r = 0 then Halt;
  Inc(d[r]);
  if d[r] > 9 - n + r then
    begin
      NextD(r - 1);
      d[r] := d[r-1]+1;
    end;
end;
 
begin
  ReadLn(n);
  if (n < 1) or (n > 9) then Exit;
  for i := 1 to n do d[i] := i; WriteD;
  repeat NextD(n); WriteD until False;
end.
Вопрос: Два простых числа называются «близнецами», если они отличаются друг от друга на 2 (например, 41 и 43). Напечатать все пары «близнецов» из отрезка [n, 2n], где n — заданное натуральное число, большее 2.
Категория: школьный раздел
Ответы:
uses crt;
function Prost(a:integer):boolean;
var i:integer;
    f:boolean;
begin
if a=1 then f:=false
else
 begin
  f:=true;
  i:=2;
  while(i*i<=a)and f do
  if a mod i=0 then f:=false
  else i:=i+1;
 end;
Prost:=f;
end;
var n,i,k:integer;
begin
clrscr;
repeat
write('Введите целое число больше 2 n=');
readln(n);
until n>2;
k:=0;
for i:=n to 2*n-2 do
if Prost(i) and Prost(i+2) then
 begin
  k:=k+1;
  writeln(i,'  ',i+2);
  if k mod 22=0 then {если чисел много, не войдут на экран}
   begin             {после 22 задержка}
    write('Нажмите Enter');
    readln;
   end;
 end;
if k=0 then write('Таких пар нет!');
readln
end.
Вопрос: Дано четное число n > 2. Проверить для него гипотезу Гольдбаха: каждое четное п представляется в виде суммы двух простых чисел.
Категория: школьный раздел
Ответы:
program p7;
var n,k:integer;
 
procedure vvod;
begin
writeln ('vvedite chetnoe chislo, bolshe dvyh: ');
readln (n);
if n <=2 then writeln ('vvedeno chislo menshe dvyh ');
if (n mod 2)<>0 then writeln ('vvedeno nechetnoe chislo! ')
end;
 
function proverka (pch:longint):boolean;
var i:longint;
begin
for i:=2 to trunc (sqrt(pch)) do
if n mod i=0 then
begin
proverka:=false;
exit;
end;
proverka:=true;
end;
begin
vvod;
for k:=1 to n div 2 do
if proverka(k) and proverka(n-k) then writeln (n,'=',k, '+',n-k);
readln;
end
Вопрос: Составить программу разложения данного натурального числа на простые множители. Например, 200 = 2^3 * 5^2.
Категория: школьный раздел
Ответы:
uses crt;
var n,i,k:integer;
begin
repeat
write('Введите натуральное число >0 n=');
read(n);
until n>0;
if n=1 then write('Простых множителей нет')
else
 begin
  write(n,'=');
  i:=2;
  while i<=n do
   begin
    k:=0;
    while n mod i=0 do
     begin
      k:=k+1;
      n:=n div i;
     end;
    if i<n then
     begin
      if k=1 then write(i,'*')
      else if k>1 then write(i,'^',k,'*');
     end
    else
     begin
      if k=1 then write(i)
      else if k>1 then write(i,'^',k);
     end;
    i:=i+1;
   end;
 end;
end.
Вопрос: Дано натуральное число n. Найти все меньшие n числа Мерсенна. (Простое число называется числом Мерсенна, если оно может быть представлено в виде 2^p-1, где р — тоже простое число. Например, 31 = 2^5 - 1 — число Мерсенна.)
Категория: школьный раздел
Ответы:
procedure isprime(n: longint; var ip: boolean);
var i, sqrtn: longint;
begin
  if (n >= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0)
    then begin
      i := 5;
      sqrtn := trunc(sqrt(n));
      ip := false;
      while i <= sqrtn do
        begin
          if n mod i = 0 then exit;
          inc(i, 2)
        end;
      ip := true
    end
    else ip := (n = 2) or (n = 3)
end;
 
var n, m: longint;
    mp: boolean;
 
begin
  m := 3;
  write('n = ');
  readln(n);
  if n <= m
    then writeln('Prime Mersenne numbers, smaller this number, don''t exist.')
    else begin
      writeln('Prime Mersenne numbers, there is less than this number:');
      while n > m do
        begin
          isprime(m, mp);
          if mp then writeln(m);
          m := m * 2 + 1
        end
    end;
  readln
end.
Вопрос: Два натуральных числа называются «дружественными», если каждое из них равно сумме всех делителей (кроме его самого) другого (например, числа 220 и 284). Найти все пары «дружественных» чисел, которые не больше данного числа N.
Категория: школьный раздел
Ответы:
var
  sum1, sum2: Real;
  y, h: Integer;
begin
  for h:=200 to 4000 do begin
    sum1:=0; sum2:=0;
    for y:=1 to h-1 do
      if frac(h/y)=0 then sum1:=sum1+y;
    if h<sum1 then begin
      for y:=1 to Trunc(sum1)-1 do
        if frac(sum1/y)=0 then sum2:=sum2+y;
      if h=sum2 then WriteLn(h:16,sum1:16:0);
    end;
  end;
  Write('Нажмите Enter...'); ReadLn;
end.