Приведены запросы к поисковой системе: 1) олимпиада 2) олимпиада&коньки 3) олимпиада&коньки&Сочи 4) олимпиада|Сочи Представьте результаты выполнения этих запросов графически с кругов Эйлера. Укажите номера запросов в порядке возрастания количества документов, кото- рые найдёт поисковая система по каждому запросу.
//PascalABC.Net var r,x,y:real; c:string; begin Write('Введите R: '); Read(r); Write('Введите координаты x и y: '); Read(x,y); if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности' else c:='Точка не лежит на окружности'; Writeln(c) end.
Тестовые решения: Введите R: 2 Введите координаты x и y: 0 2 Точка лежит на окружности
Введите R: 2 Введите координаты x и y: -1.5 0.7 Точка не лежит на окружности
Введите R: 2 Введите координаты x и y: 1 1 Точка не лежит на окружности
Введите R: 2 Введите координаты x и y: 3 0 Точка не лежит на окружности
var
r,x,y:real;
c:string;
begin
Write('Введите R: '); Read(r);
Write('Введите координаты x и y: '); Read(x,y);
if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности'
else c:='Точка не лежит на окружности';
Writeln(c)
end.
Тестовые решения:
Введите R: 2
Введите координаты x и y: 0 2
Точка лежит на окружности
Введите R: 2
Введите координаты x и y: -1.5 0.7
Точка не лежит на окружности
Введите R: 2
Введите координаты x и y: 1 1
Точка не лежит на окружности
Введите R: 2
Введите координаты x и y: 3 0
Точка не лежит на окружности
Блок-схема во вложении