Рассматривается множество целых чисел, принадлежащих числовому отрезку [3721; 7752], которые удовлетворяют следующим условиям: − сумма цифр числа кратна 3;
− двоичная запись числа не заканчивается на 000.

написать программу на Pascale

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

1.способ.перепровляются 2 мальчика потом 1 мальчик возврощается и забирает 1 взрослого и переплывает с ним потом 1 мальчик возвращается и забирает второго взрослого.                                                                                                                   2.способ.сначало переправляются 1 мальчик и 1 взрослый потом этот мальчик переправляется и забирает второго взрослого а потом возвращается за вторым мальчиком и переправляется назад вместе с ним.

а)сумм(a5: b7)

б)срзнач(c4: c7)