Для начала задачу нужно решить чисто математически, решения приведены на листочках. Поскольку задача школьная, то вариант совпадения точек не рассматривается Алгоритмического языка не знаю, но поскольку это вариант псевдокода, то думаю алгоритм вполне понятен
алг Круг_по_двум_точкам_и_радиусу(арг действ Ax, арг действ Ay, арг действ Bx, арг действ By, арг действ r) дано | A,B,r надо | нарисовать окружность нач ввод Ax, Ay, Bx, By, r
действ dAB = ((Ax - Bx)^2 + (Ay - By)^2)^(0.5) // длина АВ действ h = (r^2-dAB^2/4)^(0.5) // высота и длина вектора ОМ
// М середина АВ действ Mx = (Ax + Bx) / 2 действ My = (Ay + By) / 2
//первый круг действ Ox = Mx + (Ay - By) * h/dAB действ Oy = My - (Ax - Bx) * h/dAB нарисовать_круг(Ox, Oy, r)
//второй круг Ox = Mx - (Ay - By) * h/dAB Oy = My + (Ax - Bx) * h/dAB нарисовать_круг(Ox, Oy, r) <span>кон
//PascalABC.NET версия 3.3.1590 от 03.12.2017 //Если программа не запускается, то обновите версию
uses GraphABC; const zoom = 100;
var Ax, Ay, Bx, By, r: real;
begin readln(Ax, Ay, Bx, By, r);
var dAB := sqrt(sqr(Ax - Bx) + sqr(Ay - By)); // длина АВ var h := sqrt(r * r - dAB * dAB / 4); // высота и длина вектора ОМ
// М середина АВ var Mx := (Ax + Bx) / 2; var My := (Ay + By) / 2;
//первый круг var Ox := Mx + (By - Ay) * h / dAB; var Oy := My - (Bx - Ax) * h / dAB; DrawCircle(round(Ox * zoom), round(Oy * zoom), round(r * zoom));
//второй круг Ox := Mx - (By - Ay) * h / dAB; Oy := My + (Bx - Ax) * h / dAB; DrawCircle(round(Ox * zoom), round(Oy * zoom), round(r * zoom)); end. </span>
program z1; uses crt; var n,m,i:integer; begin repeat writeln('Введите числа'); readln(n,m); until n<m; for i:=n to m do begin if i mod 2 =0 then write(i:4); end; end.
//Sorry I know only C++ language #include<iostream> using namespace std; int main(){ <span> char a,b,c,d,a2,b2,c2,d2;</span><span> cin>>a>>b>>c>>d; </span><span> a2=a-48; </span><span> b2=b-48; </span><span> c2=c-48;</span><span> d2=d-48; </span><span> cout<<(a2+b2+c2+d2)%4;</span> return 0;}<span> </span>
Const n=25; var a,b:array[1..n] of integer; i,j,t:integer; begin Randomize; writeln('Результаты:'); for i:=1 to n do begin a[i]:=random(31)+10; write(a[i]:3); end; writeln; for i:=1 to n do b[i]:=i; for i:=1 to n-1 do for j:=1 to n-i do if a[b[j]]>a[b[j+1]] then begin t:=b[j]; b[j]:=b[j+1]; b[j+1]:=t; end; writeln('Победитель:'); writeln('min = ',a[b[1]],' его номер = ',b[1]); j:=1; while b[j]<>4 do j:=j+1; writeln('Результат российского лыжника: ', j,' место'); end.
Пример: Результаты: 38 19 22 11 16 40 22 18 21 16 15 33 38 34 39 21 19 10 25 15 40 13 34 27 37 Победитель: min = 10 его номер = 18 Результат российского лыжника: 2 место
PS. Места, которые заняли спортсмены с одинаковыми результатами, в программе будут различны.