1. написать программу для решения : точки на плоскости заданы своими координатами. определить какая из них находится ближе к началу координат.

Uses crt; var n,minind,i: integer; min,x,y: real; begin writeln('введите количество точек: '); read(n); writeln('вводите по очереди координаты x и y точек.'); read(x,y); min: =sqr(x)+sqr(y); minind: =1; for i: =2 to n do begin read(x,y); if sqr(x)+sqr(y)< min then begin min: =sqr(x)+sqr(y); minind: =i; end; end; writeln('точка под номером ',minind,'.'); end.

Для радиуса описанной окружности имеется соотношение // pascalabc.net 3.2, сборка 1367 от 20.12.2016 // внимание! если программа не работает, обновите версию! var   a,b,c,r,da,db,dc: real; begin   writeln('введите углы a,b в градусах и радиус r');   read(da,db,r);   dc: =180-da-db;   a: =2*r*sin(da*pi/180);   b: =2*r*sin(db*pi/180);   c: =2*r*sin(dc*pi/180);   writeln('угол c: ',dc: 0: 2);   writeln('a=',a: 0: 5);   writeln('b=',b: 0: 5);   writeln('c=',c: 0: 5) end. пример введите углы a,b в градусах и радиус r 30 70 50.0 угол c: 80.00 a=50.00000 b=93.96926 c=98.48078

V- логическое " или" (выражение равно 0 только при (0 v 0), в остальных случаях равно 1) & - логическое " и" (выражение равно 1 только при (1 & 1) ); ((1 и 0) или 1) и (1 или а) (0 или 1) и (1 или а) 1 и (1 или а) а может принимать два значения, проанализируем обе ситуации: если а = 0 то    1 и (1 или 0)    =    1 и 1     =    1 если а = 1  то    1 и (1 или 1)      =    1 и 1    =    1 ответ:   1