класс информатика

1. У исполнителя Удвоитель две команды:
1. прибавь 1
2. умножь на 2
Напишите программу из 4 команд, которая преобразует число 6 в число 29.
ответ:

2. У исполнителя Удвоитель две команды:
1. прибавь 1
2. умножь на 2
Напишите программу из 5 команд, которая преобразует число 2 в число 26.
ответ:

3. У исполнителя Удвоитель две команды:
1. прибавь 1
2. умножь на 2
Напишите программу из 5 команд, которая преобразует число 6 в число 51.
ответ:
4. У исполнителя Калькулятор две команды:
1. прибавь 2
2. умножь на 3
Напишите программу из 5 команд, которая преобразует число 5 в число 83.
ответ:
5. У исполнителя Калькулятор две команды:
1. вычти 2
2. умножь на 3
Напишите программу из 5 команд, которая преобразует число 8 в число 50.
ответ:

6. У исполнителя Калькулятор две команды:
1. вычти 3
2. умножь на 2
Напишите программу из 4 команд, которая преобразует число 8 в число 40.
ответ:
7. У исполнителя Удвоитель две команды:
1. прибавь 1
2. умножь на 2
Напишите программу из 4 команд, которая преобразует число 4 в число 36.
ответ:

55:5=11

365:11≈33(34) берём "34", чтобы перехлестнуть 365.

Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:

34*10=340 (340+34=374) - подходит, но это не максимум!

365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.

В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).

Проверка:

34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.

ответ: d=34. 

var

 n, k, s, sa: integer;

begin

 k := 0;

 s := 0;

 sa := 0;

 writeln('Введите последовательность, окончание ввода - число 0');

 repeat

   read(n);

   if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;

   if (n <> 0) and (n < 100) then inc(k);

   sa := sa + n

 until n = 0;

 readln;

 writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);

 writeln('Количество чисел, не больших 100, равно ', k);

 writeln('Сумма последовательности равна ', sa);

 readln

end.

Объяснение: