Алгоритм, позволяющий из полного сосуда 12л отлить половину, пользуясь двумя пустыми емкостью 8л и 5л. решить табличным способом, что то похожее на это. 6 класс​

.1. из 12 литрового отлить 8л во второй сосуд,

2. из 8литрового отлить 5л в третий сосуд и вылить оставшиеся там три литра

3. из 5литрового перелить всё в 8литровый

4. из 12литрового перелить 3 литра в 8литровый до полного, и там останется 1 литр

5. повторяем пункт 2.

в итоге у нас остается 6 литров - 1 литр в 12литровом и 5 литров в 5литровом.

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

1) не ясен вопрос 2) 0 2 6 12 20 30 42 56 72 90 3) 5 4) for i : = 1 to 10 do       begin               if (a[i] < 0) then                       a[i] : = -1               else a[i] : = 1;               write(a[i], ' ');       end; код полностью   var       a: array[1..10] of integer;       i, k: integer; begin       for i : = 1 to 10 do       begin               a[i] : = sqr(i) - i;               write(a[i], ' ');       end;       writeln;             k : = 0;       for i : = 1 to 10 do               if (a[i] > 10) and (a[i] < 70) then                       k : = k + 1;       write(k);       writeln;             for i : = 1 to 10 do       begin               if (a[i] < 0) then                       a[i] : = -1               else a[i] : = 1;               write(a[i], ' ');       end; end.

1. программа, файл var   f: file of integer;   i,k: integer; begin   randomize;   assign(f,'in.dat'); rewrite(f);   for i: =1 to 20 do begin       k: =random(99)+1;       write(f,k)       end;   close(f) end. тестовое решение 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 2. основная программа uses crt; const   nn=100; var   i,j,k,n: integer;   fin,fout: file of integer;   a: array[1..nn] of integer;   dub: boolean; begin   clrscr;   assign(fin,'in.dat'); reset(fin);   read(fin,k);   if not eof(fin) then begin       n: =1; write(k,' '); a[n]: =k       end   else n: =0;   while (not eof(fin)) and (n< =nn) do begin       read(fin,k); write(k,' ');       j: =1; dub: =false;       while (j< =n) and (not dub) do begin           dub: =(a[j]=k); inc(j);           end;       if not dub then begin inc(n); a[n]: =k; inc(j) end       end;   writeln;   close(fin);   for i: =1 to n do write(a[i],' ');   writeln; writeln('n=',n);   assign(fout,'out.dat'); rewrite(fout);   write(fout,n); close(fout);   readkey end. тестовое решение: 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13 n=18 в качестве бонуса - решение этой же в современной системе программирования pascalabc.net. // pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   var fin,fout: file of integer;   reset(fin,'in.dat');   var k: integer;   var a: =new integer[fin.filesize];   var n: =0;   while not eof(fin) do begin       read(fin,k); a[n]: =k; inc(n)       end;   close(fin);   a.println;   var b: =a.tohashset;   b.println; writeln('n=',b.count) end. тестовое решение 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13 n=18 и вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? чтобы показать, "как все это сложно"?