Решить . последовательность чисел генерируется лямбда-функцией: def generate_number(): return lambda random_seed: (random_seed*693 + 5)%100 number = generate_number() член последовательности под номером i равен number(i последовательность начинается с первого элемента, признак конца последовательности — значение 0 (не входит в саму последовательность). найти минимальное из чисел, кратное 3.язык питон

Def generate_number():
    return lambda random_seed: (random_seed*693 + 5)%100
number = generate_number()
i = 1
while number(i)%3 != 0:
    i += 1
temp_minimum = number(i)
i += 1
while number(i) != 0:
     if number(i)%3 == 0:
         if number(i) < temp_minimum:
             temp_minimum = number(i)
     i += 1
print(temp_minimum)

ответ: 21

ЗАДАЧА №1

var

       x, y: Real;

       

begin

       Read (x);

       

       if x > 10 then

               y := Pi - 2 * x

       else

               y := 1 - x;

       

       Write (y)

end.      

ЗАДАЧА №2

var

       a, b: Real;

       

begin

       Read (a, b);

       

       Write (sqr (min (a, b)), ' ', max (a, b) * max (a, b) * max (a, b))

end.        

ЗАДАЧА №3

var

       a, c: Word;

       

begin

       Read (a);

       c := 0;

       

       if a div 100 < 5 then

               Inc (c);

       if (a div 10) mod 10 < 5 then

               Inc (c);

       if a mod 10 < 5 then

               Inc (c);

       

       if c > 0 then

               Write ('содержит цифры меньше 5')

       else

               Write ('не содержит цифры меньше 5')

end.        

Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково