Program Techies2001;
uses crt;
const n=10;
var
s:string;
i,j:integer;
x0,y0,xn,yn,xk,yk:real;
begin
S:='*** Alphaeus is thinking... ***';
for i:=1 to length(s) do
begin
write(s[i]);
for j:=1 to 500000 do s[i]:=s[i];
end;
writeln();
writeln('*** OK ***');
writeln();
writeln('На окружности с центром в точке (x0, y0) задана дуга с координатами начальной (xн,yн) и конечной (xк,yк) точек. Определить номера четвертей окружности, в которых находятся начальная и конечная точки.');
writeln('Введите координаты точек:');
write('x0='); readln(x0);
write('y0='); readln(y0);
write('xn='); readln(xn);
write('yn='); readln(yn);
write('xk='); readln(xk);
write('yk='); readln(yk);
if ((xn=x0) AND (yn=y0)) OR ((xk=x0) AND (yk=y0)) then
writeln('Начало или конец дуги совпадают с центром')
else
begin
if ((xn>x0) AND (yn>y0)) then writeln('Начало дуги находится в I четверти');
if ((xn<x0) AND (yn>y0)) then writeln('Начало дуги находится во II четверти');
if ((xn<x0) AND (yn<y0)) then writeln('Начало дуги находится в III четверти');
if ((xn>x0) AND (yn<y0)) then writeln('Начало дуги находится в IV четверти');
if ((xn=x0) AND (yn>y0)) then writeln('Начало дуги находится на оси Х на границе I и II четверти');
if ((xn<x0) AND (yn=y0)) then writeln('Начало дуги находится на оси Y на границе II и III четверти');
if ((xn=x0) AND (yn<y0)) then writeln('Начало дуги находится на оси Х на границе III и IV четверти');
if ((xn>x0) AND (yn=y0)) then writeln('Начало дуги находится на оси Y на границе I и IV четверти');
if ((xk>x0) AND (yk>y0)) then writeln('Конец дуги находится в I четверти');
if ((xk<x0) AND (yk>y0)) then writeln('Конец дуги находится вî II четверти');
if ((xk<x0) AND (yk<y0)) then writeln('Конец дуги находится в III четверти');
if ((xk>x0) AND (yk<y0)) then writeln('Конец дуги находится в IV четверти');
if ((xk=x0) AND (yk>y0)) then writeln('Конец дуги находится на оси Х на границе I и II четверти');
if ((xk<x0) AND (yk=y0)) then writeln('Конец дуги находится на оси Y на границе II и III четверти');
if ((xk=x0) AND (yk<y0)) then writeln('Конец дуги находится на оси Х на границе III и IV четверти');
if ((xk>x0) AND (yk=y0)) then writeln('Конец дуги находится на оси Y на границе I и IV четверти');
end;
end.
Ответ:
10
Объяснение:
10>9 и является четным числом
Var
r, r1, r2, r3, r4 : real;
begin
write ('R1 = '); readln (r1);
write ('R2 = '); readln (r2);
write ('R3 = '); readln (r3);
write ('R4 = '); readln (r4);
r := r1 + (r2 * r3) / (r2 + r3) + r4;
writeln ('R = ', r);
end.
