Максимум можно взвешивать 10 раз и найти монету
А именно:
Убрать 1 монету. На 1 чашу положить 1009 монет, и на вторую. и если весы показывают, что на одной чаше больше вес, то ту горсть мы разделяем на 2 половины (естественно убирая другую) и так делаем каждый раз пока не найдем монету)
DIV - целое.
Mod - остаток от деления.
Судя по коду требуется ввести трехзначное число.
x=700
Ответ: 700
program raf105;
var
a,b,c: integer;
begin
write('Введите три числа: ');
readln(a,b,c);
if (a = b) and (b = c) then
begin
a:= a*3;
b:= b*3;
c:= c*3;
end
else if b = c then
begin
a:= a*-1;
b:= b*-1;
c:= c*-1;
end
else
begin
a:= 0;
b:= 0;
c:= 0;
end;
writeln('Вывод: ',a,' ',b,' ',c);
end.
<h3>PascalABC</h3>
1) Если подразумевается a>=0, то верно.
2) Неверно, нужны скобки: (x > 0) or (y < 0)
3) Если подразумевается c <> 10, то верно.
4) Верно.
5) Неверно.
6) Неверно.
7) Неверно.
8) Неверно.
9) Если в 9 x>=y, то верно (если есть 9).
10) Верно.
11) Неверно, можно исправить так: (x = y) and (y = z).
Ответ: 1, 3, 4, 10.