Ну по логике, наверное, достаточно одного взвешивания. Получаем при этом некоторую массу в граммах. Затем смотрим, сколько нам не хватает граммов до 40 грамм - это и будет количество фальшивых монет.
Например:
Получили 40 г. Значит все 4 монеты весят 10 г.
Получили 39 г. Значит имеем три монеты по 10 г и одну 9 г. Т.е. одна фальшивая.
Получили 38 г. Значит имеем 2 монеты по 10 г и две по 9 г. Т.е. две фальшивки.
Получили 37 г. Значит одна 10 г и три по 9 г. Т.е. три фальшивки.
Получили 36 г. значит имеем 4 монеты по 9 г, то есть все 4 фальшивые.
Так вот как-то...
Сначало посетил каталог под номером 3
c:\project\scheme\device
потом посетил каталог под номером 2
c:\install\local
Var c,r:real;
const pi=3.1415;
begin
write('введите радиус окружности');
read(r);
c:=2*pi*r;
writeln('длина окружности равна', c);
end.
Без блок-схемы.
var i,sum,n: Integer;
begin
sum:=0;
for i:=0 to 4 do
begin
writeln('Введите ',i+1,' число');
readln(n);
sum:=sum+n;
end;
writeln('Ответ: ',sum/5);
end.