Шрифт
Размер шрифта
Полужирный
Курсив
Подчеркнутый
Цвет выеделения текста
Выравнивание по левому краю
Выравнивание по центру
Выравнивание по правому краю
Выравнивание по ширине
Может, как-то так:
а) тишь-тушь-туша-тура-бура-буря
б) тьма-тема-рема-рама-рана-кана-канн-каон-клон-слон-стон-стан-сван-сват-свет
тьма-тема-сема-сима-сила-кила-килт-киот-крот-грот-глот-глет-слет-свет
Ну по логике, наверное, достаточно одного взвешивания. Получаем при этом некоторую массу в граммах. Затем смотрим, сколько нам не хватает граммов до 40 грамм - это и будет количество фальшивых монет.
Например:
Получили 40 г. Значит все 4 монеты весят 10 г.
Получили 39 г. Значит имеем три монеты по 10 г и одну 9 г. Т.е. одна фальшивая.
Получили 38 г. Значит имеем 2 монеты по 10 г и две по 9 г. Т.е. две фальшивки.
Получили 37 г. Значит одна 10 г и три по 9 г. Т.е. три фальшивки.
Получили 36 г. значит имеем 4 монеты по 9 г, то есть все 4 фальшивые.
Так вот как-то...
<span>Var
Text, Slovo, max:string;
Begin
WriteLn('Введите строку, разделенную пробелами: '); ReadLn(Tex);
Text:= Text + ' ';
max:='';
While Pos(' ',Text) <> 0 do
Begin
</span>Slovo<span>:= Copy(Text, 1, Pos(' ',Text) - 1);
Delete(Text, 1, Pos(' ',Text));
if Length(</span><span>Slovo</span><span>) > Length(max)
then max:= </span>Slovo<span>;
End;
WriteLn('Самое длинное слово: " ',max,' " его длина ',Length(max));
ReadLn;
End.</span>
Выбираю строчка где F=1 и записываю через переменные сумму произведений соответствующих строк
если 0-пишу не х, если 1-то пишу х
c у так же
тогда не х * не у + не х * у = (не у + у) * не х = 1 * не х = не х