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

👇

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

Ответ:

olena4519

14.12.2022

День недели понедельник

Дата 04.3.13

Чтение 2

Просмотр телепередач 4

Компьютерные игры 0

Активные игры 0

Общение, прогулки 0

Другое 1

День недели вторник

Дата 05.3.13

Чтение 1

Просмотр телепередач 4

Компьютерные игры 1

Активные игры 0

Общение, прогулки 1

Другое 1

День недели среда

Дата 06.3.13

Чтение 2

Просмотр телепередач 2

Компьютерные игры 1

Активные игры 0

Общение, прогулки 2

Другое 2

День недели четверг

Дата 07.3.13

Чтение 1

Просмотр телепередач 1

Компьютерные игры 3

Активные игры 0

Общение, прогулки 1

Другое 1

День недели пятница

Дата 08.3.13

Чтение 2

Просмотр телепередач 1

Компьютерные игры 0

Активные игры 0

Общение, прогулки 4

Другое 1

День недели суббота

Дата 09.3.13

Чтение 3

Просмотр телепередач 1

Компьютерные игры 0

Активные игры 0

Общение, прогулки 2

Другое 3

День недели воскресенье

Дата 10.3.13

Чтение 1

Просмотр телепередач 1

Компьютерные игры 2

Активные игры 1

Общение, прогулки 2

Другое 2

Итого за неделю: 57

Среднее: 7

4,5(92 оценок)

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

Ответ:

balashova1296

14.12.2022

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

14.12.2022

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 оценок)

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

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

29.10.2021

Как отказаться от мысли об измене партнеру...

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

04.10.2022

Как удалить старые сообщения в WhatsApp...

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

13.03.2020

Избегайте обидных фраз во время ссор между супругами: советы психологов...