Монетку можно определить за 2 взвешивания.
<span>1. </span>
<span>Делим на 3 группы по 3 штуки в каждой </span>
<span>2. </span>
<span>Взвешиваем 1 и 2 группу. Если они одинаковы, то фальшивая в 3 группе. Если одна из них легче, то фальшивая группа та, что легче. </span>
<span>3. </span>
<span>Взвешиваем 1 и 2 монетку в группе с фальшивой монеткой. </span>
<span>4. </span>
<span>Если монетки одинаковы, то фальшивая 3, иначе фальшивая та, что легче.</span>
1)придумать о чём будет сочинение
2)написать на черновике
3)списать с черновика
4)оформить
вот план как писать сочинение
Если каждый будет прибавлять по 10 то победит 2 участник. В основном будет выигрывать 2 участник. так так он завершает всегда. Если по 5 называть то тоже 2 участник победит. Рассмотри если другие числа и разные называть
Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
Упорядочение - сортировка, разложение, разложение по порядку.
Создание - это создание, то что вы передаете другим