Условия попадания в область:
var
x,y:real;
begin
Write('Введите координаты точки (x,y): ');
Readln(x,y);
if (x>3) and (y>2) then Writeln('Точка попадает в область')
else Writeln('Точка не попадает в область')
end.
{
Для второго условия в if надо записать
(x<-2) and (y<-4)
}
512Кб = 524288 байт = 4194304 бит
Фрезерования это правильный ответ
1 бит-8 байт,то есть 64 бит-8 байт
Элементарно!
1) Разбиваем 27 монет на 3 кучки по 9 монет. Сравниваем 2 кучки.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 9 монет, одна фальшивая. Осталось 2 взвешивания.
2) Точно также разбиваем 9 монет на 3 по 3 монеты и сравниваем две.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 3 монет, одна фальшивая. Осталось 1 взвешивание.
3) Сравниваем 2 монеты. Какая легче - та и фальшивая.
Если они равны, то фальшивая третья, которую не взвешивали.