Из 3 монет одинакового достоинства одна фальшивая(легкаякак её найти с одного взвешивания на чашечных весах без гирь? представте с блок-схемы алгоритм решения

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

Положить одну монету на одни весы а вторую на другие

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 begin   var a1,b1,c1,a2,b2,c2: real;   write('длины сторон 1 треугольника: '); read(a1,b1,c1);   var p1: =a1+b1+c1;   write('длины сторон 2 треугольника: '); read(a2,b2,c2);   var p2: =a2+b2+c2;   if p1< p2 then writeln('периметр 1 треугольника (',p1,') меньше')   else       if p2< p1 then writeln('периметр 2 треугольника (',p2,') меньше')       else writeln('периметры равны ',p1) end.

Var a : array[1..10] of word; max : word; begin       randomize;     for i : byte : = 1 to 10 do   a[i] : = random(1, 60000);   max : = 0;   for i : byte : = 1 to 10 do   if a[i] > max then max : = a[i];   writeln(max*3); end. добавлю и объяснение. алгоритм заполняет целочисленный массив из десяти элементов случайными числами. возможны диапазон числе:   от 1 до 60000. затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. в строке writeln выводится значение этого числа умноженное на три.