3. Введите с клавиатуры расстояние L в сантиметрах. Используя операцию деление
нацело, найти количество полных метров в нем (1 метр = 100 см).
4. Введите с клавиатуры массу M в килограммах. Используя операцию деления
нацело, найти количество полных тонн в ней (1 тонна = 1000 кг).
5. С начала суток секунд (N — целое). Найти количество полных минут с начала суток.
6. С начала суток секунд (N — целое). Найти количество
полных часов с начала суток.
7*. Дан номер некоторого года (целое положительное число). Определить
соответствующий ему номер столетия, учитывая, что, к примеру,
началом 20 столетия был 1901 год.

N = int(input())

if N == 1:

   exit(0)

 

bacteria = [0] * N

for i in range(0, N):

   bacteria[i] = int(input())

 

prefix_sum = [bacteria[0]] * N

for i in range(1, N):

   prefix_sum[i] = prefix_sum[i - 1] + bacteria[i]

ans = [0] * N

if bacteria[N-1] > bacteria[0]:

   ans[N - 1] = 1

for i in reversed(range(2, N)):

   if ans[i] == 1:

       prev = i - 1

       if prefix_sum[prev] > bacteria[i] and bacteria[0] < bacteria[prev]:

           ans[prev] = 1

for i in range(N):

   print(ans[i])

Объяснение:

h++

program comp;

var

 number, composition, last_number: integer;

begin

 composition := 1;

 read(number);

 while (number > 0) do

 begin

   last_number := number mod 10;

   composition := composition * last_number;

   number := number div 10;

 end;

 write(composition);

end.

Объяснение:

program comp;  // Название программы

var

 number, composition, last_number: integer;  // Создание целочисланных переменных:

number - число, которое вводится с клавиатуры;composition - переменная для хранения произведения цифр числа;last_number - переменная, которая будет хранить цифры числа.

begin  // Начало программы

 composition := 1;  // Переменной composition присваиваем значение 1

 read(number);  // Считываем число с клавиатуры

 while (number > 0) do  // Пока переменная number > 0 выполняем

 begin  // Начало цикла

   last_number := number mod 10;  // Берем последнюю цифру от числа (остаток от деления на 10)

   composition := composition * last_number;  // В переменную composition записываем произведение переменной composition и переменной last_number

   number := number div 10;  // Отделяем последнюю цифру от числа (целочисленное деление на 10)

 end;  // Конец цикла

 write(composition);  // Вывод значения переменной composition

end. // Конец программы