Составьте блок-схему Найдите количество элементов последовательности кратных 3, значения которых меньше 100, а также порядковый номер первого такого элемента.

Var   a: integer; begin   read(a);   while(a < > 0) do    begin     write(a mod 10);     a : = a div 10;   end; end.

для 4 символов:

2*2*2*2=16

 

для 5 символов:

2*2*2*2*2=32 

 

для 6 символов:

2*2*2*2*2*2=64

 

16+32+64=112

 

   

 

 

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.