Взвесить любые две монеты друг с другом: 1) Если весы в равновесии то взвесить одну из этих монет с любой из оставшихся а) Если монета которую взвешивают второй раз весит больше, то фальшивая та которая легче и та, которую не взвешивали b) Если монета которую взвешивают второй раз весит меньше, то она и та с которой взвешивали в первый раз фальшивые 2) Если одна из монет весит больше другой, то взвесить ее с любой из оставшихся: a)Если весы в равновесии, то фальшивая та с которой взвешивали в первый раз и с которой не взвешивали b) Если новая монета весит легче, то фальшивая она и та с которой не взвешивали
Объяснение:
program pr1;
var L:Integer;// ввод пользователя
M:Integer;//полных метров
begin
write('Enter L: ');
readln(L);
M:=L div 100;
writeln(M);
readln;
end.
//Программа на Delphi/Pascal