Какие данные можно вставлять в клетке таблицы?
информатика. задание 2​

PascalABC.NET 3.3

program journal;

var

 sum, mark, count, n: integer;

 check: boolean;

begin

 sum := 0;

 check := true;

 count := 0;

 writeln('Введите количество оценок: ');

 readln(n);

 if (n > 0) then begin  

 while (count <> n) do

 begin

   readln(mark);

   inc(sum, mark);

   if (mark < 4 ) then check := false;

   inc(count);

   if (count = n) then writeln('Ввод окончен!');

 end;

 end else writeln('Error!');  

 if ((check) and (sum > 0) and (n > 0)) then writeln('Ты молодец!');

end.

Занумеруем монеты 1,2,3,4,5,6. Предполагается, что фальшивые монеты весят одинаково. 
1) Кладем на левую чашу 1,2,3, а на правую - 4,5,6 
Рассмотрим 2 возможных случая. 
Случай 1 
2) Предположим, левая чаша перевесила. Значит, обе фальшивые монеты на правой. Кладем на левую 4, на правую 5. Если равновесие, то обе они фальшивые. Если какая-то легче, например, 5, то она фальшивая и фальшивая оставшаяся 6. Понадобилось всего 2 взвешивания. 
Случай 2 
2) Теперь предположим, что весы в равновесии. Тогда каждая из троек содержит по одной фальшивой монете. Кладем на левую 1, на правую 2. Если равновесие, то обе они фальшивые. Если какая-то легче, например, 1, то она фальшивая и фальшивая оставшаяся 3. 
3) Кладем на левую 4, на правую 5. Если равновесие, то обе они фальшивые. Если какая-то легче, например, 5, то она фальшивая и фальшивая оставшаяся 6.