// PascalABC.NET
begin
var x := ReadReal;
var y := x < 5 ? Sqrt(x + 25) : x = 5 ? 500.0 : x / 4;
Print(y)
end.
begin
var x := ReadReal;
var y := x < -1 ? x + 2 : Sqr(x + 2);
Print(y)
end.
Разделим монеты на 3 кучки по 9 монет. Положим на чаши весов первую и вторую кучки; по результату этого взвешивания мы точно узнаем, в какой из кучек находится фальшивка (если весы покажут равенство, то она - в третьей кучке). Теперь, аналогично, разделим выбранную кучку на три части по три монеты, положим на весы две из этих частей и определим, в какой из частей находится фальшивая монета. Наконец, остается из трех монет определить более тяжелую: кладем на чаши весов по 1 монете - фальшивкой является более тяжелая; если же на весах равенство, то фальшивой является третья монета из части.
с алгоритмом сложнее)))
Код ниже (также можете свериться со скриншотами):
№1:
var x,y: real;
begin
write('x = ');
read(x);
if (x < 5) then
begin
y:= sqrt(x+25);
end;
if (x = 5) then
begin
y:= 500;
end;
if (x > 5) then
begin
y:= (x/4);
end;
writeln('y = ',y:2:2);
end.
№2:
var x,y: real;
begin
write('x = ');
read(x);
if (x < -1) then
begin
y:= x+2;
end;
if ((x >= -1) and (x < 5)) then
begin
y:= sqr(x+2);
end;
writeln('y = ',y:0:0);
end.