Информатика: Есть здесь хоть кто то умнее меня решите

Есть здесь хоть кто то умнее меня решите

👇

Увидеть ответ

Ответ:

annauskova21

04.05.2023

наверное нет не кто умнее тебя(◍•ᴗ•◍)❤

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

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

Ответ:

balashova1296

04.05.2023

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,5(81 оценок)

Ответ:

данила0625

04.05.2023

1. Norton System Doctor, Norton UnErase, Norton Disk Doctor, Norton WinDoctor. Optimization Wizard, Speed Disk. Norton Registry Tracker, Norton Registry Editor

2. Основным требованием архивного копирования файлов является сжатие файлов с целью уменьшения занимаемого архивной копией пространства на диске

3. Компьютер начинает виснуть, выскакивают глобальные ошибки, не запускаються приложения, очень слабо ходит по сайтам.

4. Ограничение свободы (до 4 лет);

Принудительная деятельность (до 4 лет);

Лишение свободы (до 4 лет) с одновременным денежным взысканием до 200 тыс. руб. или з/п за период до полутора лет.

5. Основным средством защиты компьютера является антивирусная программа, поэтому для обеспечения безопасности первым делом установите ее, , Новые вирусы появляются каждый день, поэтому антивирус необходимо регулярно обновлять, , Лучше использовать платную версию антивируса, так как она имеет больше возможностей.

Обновите операционную систему и браузер до последней версии, ведь именно через их «дыры» большинство вирусов попадают в компьютер. Делайте это регулярно или установите автоматическое обновление.

Включите брандмауэр Windows или установит любой другой, он оповестит о подозрительной активности программ, которые могут быть вирусами.

4,7(6 оценок)

Это интересно:

Кулинария-и-гостеприимство

18.11.2022

Легкий и вкусный способ приготовления слоеной основы для пирога...

Взаимоотношения

01.11.2021

Как страстно целовать: советы и рекомендации для пар...

Компьютеры-и-электроника

02.04.2023

Как сделать, чтобы ваш блог отображался в начале списка результатов поиска...