Є дев’ять однакових на вигляд монет. Відомо, що серед них є одна фальшива і вона важча за справжню. Складіть блок-схему алгоритму виявлення фальшивої монети найменшою кількістю зважувань на талькових терезах без важків очень нужно, буду благодарна!!

часть схемы, информацию - канал.

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end. 

чесно говоря без них куда легче

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

с ними только больше кода

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.

640*480*3*8/28800 секунд