Половодье характеризуется кратковременным интенсивным увеличением расходов и уровней воды

👇

Ответ:

Кратосчелавек

08.05.2021

Любой гражданин имеет право на свободу слова. Или на свободу ходить по улице итд. Вообщем имеет право на все, кроме того что ограничивается законом.

4,4(50 оценок)

Ответ:

Dinez8

08.05.2021

в конституции Российской Федерации прописано:"каждый гражданин имеет право на свободу и личную неприкосновенность",т.е.гражданин-лицо свободное и лишать его свободы без иной причины невозможно. примеры: человек сам решает куда пойти и поехать. человек сам решает кем быть в будущем. человек сам решает как и с кем прожить жизнь. человек сам находит себе место учебы(если это лицо,достигшее 18 лет)и работы. человек предпочитает свободное время так,как ему нравится. помимо этого существует закон о личной неприкосновенности, т.е. никто не должен нарушать его личное пространство,врываться в собственное жилище,рукоприкладствовать.

4,8(18 оценок)

Открыть все ответы

Ответ:

hamaturov

08.05.2021

Var
i, n, s: longint;
d, k: integer;

begin
i := 3; k := 0;
repeat
    s := 1;
    for d := 2 TO Trunc(sqrt(i)) do
    begin
      n := (i div d);
      if n * d = i then s := s + d + (i div d);
    end;
    if int(sqrt(i)) = sqrt(i) then s := s - Trunc(sqrt(i));
    if s = i then k := k + 1;
    i := i + 1
until (k = 3);
Writeln('Третье совершенное число равно ',s)
end.

Тестовое решение:
Третье совершенное число равно 496

const
k=35; { k-е по порядку простое число }

var
i,j,n,m:integer;

begin
n:=1; i:=1;
repeat
    j:=2;
    m:=round(sqrt(i));
    while (i mod j <>0) and (j<=m) do j:=j+1;
    if j>m then n:=n+1;
    i:=i+1
until (n=k);
Writeln(i-1)
end.

Тестовое решение:
137

var
n, d1, d2, d3: integer;

begin
Write('Введите трехзначное число ->');
Readln(n);
d1 := (n div 100);
d2 := ((n mod 100) div 10);
d3 := (n mod 10);
if (d1 * d2 * d3 in [100..999]) then
    Writeln('Произведение цифр трехзначное')
else Writeln('Произведение цифр не трехзначное')
end.

Тестовое решение:
Введите трехзначное число ->518
Произведение цифр не трехзначное

*** В блок-схемах использованы обозначения:
sqrt(x) - квадратный корень от х;
\ - операция целочисленного деления
% - операция остатка от целочисленного деления

4,4(78 оценок)

Ответ: