Решить алгоритм сбора яблок 1.начало (в овале) 2.n: =1 (в прямоугольнике) 3.поставить под яблоню пустое ведро (в прямоугольнике) 4. набрать ведро яблок с яблони (в прямоугольнике) 5.n: =n+1(в прямоугольнике) 6. n=3 (ромб) ложь к 3 пункту истина 7.конец (в овале) 1. какие блоки составляют тело цикла? 2.какой блок содержит условие выхода из цикла? 3.сколько ведер наберет исполнитель алгоритма? 4.всегда ли можно выполнить алгоритм? при каких условиях не удастся выполнить 4 пункт?

Это алгоритм сбора двух вёдер яблок: сначала n = 1, а при каждой итерации к n добавляется единица. выход из цикла будет при n = 3, так что цикл исполнится два раза. 1. тело цикла - команды, которые повторяются - это блоки 3 - 5. 2. условие выхода из цикла - блок 6. 3. 2 ведра. 4. не всегда. блок 3 не выполним, если рядом нет яблони или у исполнителя нет ведра, блок 4 невозможно выполнить, если на яблоне меньше ведра яблок.

Input "a="; a input "b="; b input "c="; c if c = 0 then     if b = 0 then           print "x=0"     else           x1 = 0: x2 = -b / a           print "x1="; x1, "x2="; x2     end if else     if b = 0 then           x1 = -c / a: x2 = -x1           print "x1="; x1, "x2="; x2     else           d = b ^ 2 - 4 * a * c           if d < 0 then                 print "нет действительных корней"           else                 if d = 0 then                       x = -b / (2 * a)                       print "x="; x                 else                       d = sqr(d)                       x1 = (-b - d) / (2 * a): x2 = (-b + d) / (2 * a)                       print "x1="; x1, "x2="; x2                 end if           end if     end if end if end

Первая программа var   n, i, x, s : integer;   t : boolean; begin   writeln('количество чисел');   readln(n);   s : = 1;   t : = false;   for i : = 1 to n do     begin       writeln(i,' число');       readln(x);       if x < 7 then         begin           t : = true;           s : = s*x;         end;     end;   if t then     writeln('ответ ',s)   else     writeln('ответ ',0); end.втораяvar  n, i, x, s : integer; begin  writeln('kolichestvo chisel');   readln(n);   s : = 0;   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if (x > = 10) and (x < 99) then        s : = s + 1;     end;   writeln('otvet: ',s); end.третьяvar  n, i, x, s : integer; begin  writeln('kolichestvo chisel');   readln(n);   s : = 0;   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if x > 10 then        s : = s + 1      else if x < 10 then        s : = s - 1;     end;   if s > 0 then        writeln('chisel > 10 bolche')  else if s < 0 then    writeln('chisel < 10 bolche')  else    writeln('chisel porovnu'); end.четвёртаяvar  n, i, x : integer;   st : string; begin  writeln('kolichestvo chisel');   readln(n);   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if (x > 12)   and (x < 40) and (x mod 7 = 0) then        st : = st + inttostr(x) + ' ';     end;     writeln('otvet: ',st); end.