<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var y:=ReadReal('y=');
var x:=(y-16)/10;
Writeln('При y=',y,', x=',x)
end.
<u>Пример</u>
y= 4.17
При y=4.17, x=-1.183
Const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>5 then
a[i]:=100;
for i:=1 to n do
write(a[i]:4);
end.
2, можно взвесить по 2 монеты и выбрать из них там где есть и фальшивая, а потом взвесить их 2 отдельно