Кто может покажите мне алгоритм как это сделать в scratch

рисуешь кпужки и все

Procedure f(n: integer); begin   if n> 0 then begin       write (n);       f(n-2);       f(n div 4);       end end; begin   f(9); end. на выходе будет 97531112 если нужна трассировка, её можно сделать примерно так: procedure f(n: integer); begin   writeln('вход');   if n> 0 then begin       writeln ('в выходную строку: ',n);       writeln('вызов f(n-2)');       f(n-2);       writeln('вызов f(n div 4)');       f(n div 4);       end;       writeln('выход') end; begin   f(9); end. результат трассировки: вход в выходную строку: 9 вызов f(n-2) вход в выходную строку: 7 вызов f(n-2) вход в выходную строку: 5 вызов f(n-2) вход в выходную строку: 3 вызов f(n-2) вход в выходную строку: 1 вызов f(n-2) вход выход вызов f(n div 4) вход выход выход вызов f(n div 4) вход выход выход вызов f(n div 4) вход в выходную строку: 1 вызов f(n-2) вход выход вызов f(n div 4) вход выход выход выход вызов f(n div 4) вход в выходную строку: 1 вызов f(n-2) вход выход вызов f(n div 4) вход выход выход выход вызов f(n div 4) вход в выходную строку: 2 вызов f(n-2) вход выход вызов f(n div 4) вход выход выход выход

Uses crt; var     a,b: integer;     s1,s2: byte; begin     clrscr;     write('введите 3-х значное число: '); read(a);     write('введите 2-х значное число: '); read(b);     s1: =a div 100+(a div 10) mod 10+a mod 10;     s2: =b div 10+b mod 10;     if s1> s2 then writeln('сумма цифр 3-х значного числа больше')     else           if s2> s1 then writeln('сумма цифр 2-х значного числа больше')           else writeln('суммы цифр обоих чисел одинаковы');     readkey end. пример введите 3-х значное число: 513 введите 2-х значное число: 97 сумма цифр 2-х значного числа больше