'Microsofr QBasic 1.0
SCREEN 12
LINE (100, 150)-(350, 300), 3, B
LINE (350, 100)-(450, 300), 3, B
CIRCLE (200, 330), 30, 3, , , 640 / 480
CIRCLE (400, 330), 30, 3, , , 640 / 480
Увеличения? начиная с windows vista (windows 7) - восмикратное(800%), до vista (XP и ниже) - 10х (если нажать чуть выше значка 8х)
<span>1.Полнотекстовый поиск
2.</span><span>Фразовый поиск
3.</span><span>Поиск похожих документов
4.</span><span>Поиск по атрибутам документов
5.</span><span>Поиск нераспознанных документов
6.</span><span>Поиск по регулярным выражениям
</span><span>7.Поиск по словарю
8.п</span><span>оиск по словарю синонимов
</span>
Держи ))) удачи )))
var x, y, d: real;
begin
read(x,y);
d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат}
if d <= 1 then
writeln('Входит в Д1')
else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then
writeln('Входит в Д2')
else
writeln('Не входит');
end.