Придумать два алгоритма : • собрать портфель два алгоритма на другую тему

насколько я понял, на алгоритм1)открой портфель2)собери учебники3)собери принадлежности4)положи учебники по одному в портфель5)положи принадлежности по одной в портфель6)закрой портфель.

 

2 .взять портфель и поставить его на удобное место. потом посмотреть расписание уроков. сложить вначале учебники, а потом тетради. положить пенал и нужные вещи в школе например: влажные салфетки и деньги что бы купить поесть в столовой. застегнуть портфель. 

чтобы программу, будем выводить команды типа "сделай единица", где единица и девять - процедуры.

описание процедуры:

процедура < имя процедуры>

нач        

< тело процедуры>

кон

процедура единица

нач

поворот шаг шаг шаг шаг

поворот поворот

прыжок прыжок прыжок прыжок

поворот

кон

процедура девять

нач

шаг поворот шаг шаг шаг

шаг поворот шаг поворот шаг

шаг поворот шаг поворот поворот поворот

прыжок прыжок поворот

кон

тело программы: программа число 1919

      нач

          сделай единица

          прыжок

          сделай девять

          прыжок

          сделай единица

          прыжок

          сделай девять

    кон

подробнее - на -

1) var n,m,max,min: integer; begin write('введите число: '); readln(n); min: =9;     max: =0; while n> 0 do  begin  m: =n mod 10;   if m< min then min: =m;   if m> max then max: =m;   n: =n div 10;   end;     writeln('максимальное число: ',max);     writeln('минимальное  число: ',min); end.2)vari,count: integer; n,s: string; beginwriteln('введите число: '); readln(s); writeln('введите цифру: '); readln(n); for i: =1 to length(s) doif(s[i]=n)thencount: =count+1; writeln('количество раз, когда встречается цифра  = ',count); end.