Исполнитель вычислитель умеет выполнять только две команды. умножить на 2 и прибавить 1. составьте для вычислителя наиболее короткую программу получения из числа 1 числа 5, 50 и 99.

1.
1+1=2
2*2=4
4+1=5

2.
1+1=2
2+1=3
3*2=6
6*2=12
12*2=24
24+1=25
25*2=50

3.
1+1=2
2+1=3
3*2=6
6*2=12
12*2=24
24*2=48
48+1=49
49*2=98
98+1=99

что нельзя:

1)В интернете нельзя лазять по разным не проверенным сайтам

2)Нельзя скачивать какие либо вещи с не проверенных сайтов

3)Нельзя делится местоположением своего дома и когда Вы куда либо уезжаете

4)Нельзя использовать простые пароли которые можно угадать

5)Нельзя использовать одни и те же пароли

6)Нельзя кликать по ссылкам на письмах от людей которых вы не знаете, и на непроверенных сайтов

7)Не используйте не безопасное соединение VPN

8)Не совершайте покупки на непроверенных сайтов

9)Не переписывайтесь с подозрительными незнакомцами

10)Не скачивайте ничего без антивируса

Объяснение:

что можно:

1)Можно сидеть на проверенных сайтах

2)Можно скачивать разные вещи с проверенных сайтов

3)Можно переписываться с людьми которые проверенные и точно никак не плохие

4) Можно использовать безопасное соединение VPN

5)Можно совершать покупки на проверенных сайтах

6)Ставить разные пароли на разные соцсети

7)Ставить не свою дату рождения, не свое имя не свое фото на аватарку

8)Можно переходить по ссылкам в письмах от знакомых вам людей

9)скачать антивирус

10) обмен чем либо с проверенными людьми

надеюсь ❤️

Задание 1)

var

  k,i,s,s2 : integer;

begin

  s:=0; s2:=0;

  for i:=50 to 100 do

     begin

 write('k - ', i, ' = '); read(k);

 if (k mod 2 = 0) or (k mod 3 = 0) then

    s:=s+k;

 if (k mod 2 <> 0) or (k mod 3 <> 0) then

    s2:=s2+k;

     end;

  writeln('Сумма кратных 2 и 3 = ', s);

  writeln('Сумма не кратных 2 и 3 = ', s2);

end.

Объяснение:

Инициализируем переменные, запускаем цикл от 50 до 100, считываем значение k и проверяем кратно ли оно 2 и 3, или нет. Если да - складываем с переменной s. Если нет - с переменной s2. Выводим суммы чисел.

Задание 2)

var

  n,s,r,x,i : integer;

begin

  r:=0;

  s:=0;

  write('n = '); read(n);

  for i:=1 to n do

     begin

 readln(x);

 if x mod 2 = 0 then

    begin

       s:=s+x;

       r:=r+1;

    end;

     end;

  writeln('Сумма четных чисел: ', s);

  writeln('Колличество четных чисел: ', r);

end.

Объяснение:

Инициализируем переменные, считываем N, запускаем цикл от 1 до n.

Считываем в цикле значение x и проверяем четное ли оно. Если да - складываем его сумму и считаем сколько их (Переменные s и r). Затем выводим их.