Ну по логике, наверное, достаточно одного взвешивания. Получаем при этом некоторую массу в граммах. Затем смотрим, сколько нам не хватает граммов до 40 грамм - это и будет количество фальшивых монет.
Например:
Получили 40 г. Значит все 4 монеты весят 10 г.
Получили 39 г. Значит имеем три монеты по 10 г и одну 9 г. Т.е. одна фальшивая.
Получили 38 г. Значит имеем 2 монеты по 10 г и две по 9 г. Т.е. две фальшивки.
Получили 37 г. Значит одна 10 г и три по 9 г. Т.е. три фальшивки.
Получили 36 г. значит имеем 4 монеты по 9 г, то есть все 4 фальшивые.
Так вот как-то...
Var
s:string;
i,n1,n2:integer;
begin
Write('Введите строку: '); Readln(s);
n1:=0; n2:=0;
for i:=1 to Length(s) do
case s[i] of
'*':Inc(n1);
'!':Inc(n2)
end;
Writeln('Найдено *: ',n1,', !: ',n2)
end.
<em><u>Тестовое решение:</u></em>
Введите строку: Это *просто *!* тестовая строчка!!!
Найдено *: 3, !: 4
Шлях до файлу - це рядок, що описує ієрархію директорій, в якій знаходиться шуканий файл.
Шлях буває двох видів:
абсолютний - коли задається <u>повний<em /></u><u /> шлях, починаючи від кореня файлової системи комп'ютера;
відносний - коли задається шлях відносно деякої (зазвичай - поточної) директорії.
Приклади:
абсолютний шлях: C:\Users\Me\Documents\my.doc
відносний шлях: ../../Pictures/hand.jpg
<em>* '.' означає</em><em>поточну директорію, '..' - директорію на рівень вище (попередню)</em>
Set /p a="Name: "
dir %a%
@pause
Насколько я помню, так:)
Ответ:
Вот ответ
Объяснение:
Нужно набрать воду в 5 литровый сосуд, затем перелить в 7 литровый. Потом налить 1 литр в пятилитровый и перелить в 7 литровый.