var a,b,c,y:Real;
Begin
Read(a,b,c);
y:=SQRT(a+ABS(b)+(15+c)*(15+c));
Write(y)
End.
Делим 9 монет на 3 кучи по 3 монеты
берем 2 кучи по 3 монеты и взвешиваем
если они равные,то монета в третьей кучке
Берем 3 кучу и делим её на еще 3 монеты
в итоге берем 2 монеты и взвешиваем,если они равные,то фальшивая 3 монета
Понял?
В строчках, в которых Вы вычисляете y1 есть явная ошибка - скобок не хватает, а некоторые скобки можно, наоборот, убрать:
Вместо y1:=((1/3)*(2*y0+x/y0*y0))
надо написать y1:=(2*y0+x/(y0*y0))/3
Ответ:
Тебе надо чертить круги эллера,ну а так ответ
Объяснение:
200+300-450 = 50 страниц
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadlnString;
var (m,n):=ReadInteger2('Введите через пробел m и n:');
Swap(a[m],a[n]); a.Println;
end.
<u>Пример</u>
Информатика
Введите через пробел m и n: 5 2
Ирфонматика