Решить в Паскаль ввести с клавиатуры 5 чисел и найти их сумму при цикла for.

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.

Ну сама считай)

Идут числа которые делятся на 3

3

6

9

12

15

18

21

24

И каждые 3 часа она делится на 2 т.е.

3=2 (изначально)

Потом 6=6 (т.к. 1 амеба делится на 2, получается что 2+2+2=6)

9=6 (сейчас 6 таких амёб поделились ещё на 2, т.е 18) и так далее

12= 18

15=54

18=162

21=486

24=1458

Т.е каждый раз просто плюсуешь три раза, потому что 1 амёба делится на 2 образуя 3 амёб, поэтому и плюсовать на одно и тоже число надо 3 раза

Если не поняла то смотри для примера возьму опять число 18:

18+18+18=54

Если решать долгим то сама всё поймешь:

(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)+(1+2)=54 (Можешь просто посчитать что тут 18 скобочек (1+2))