Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program risovalka;
uses crt,graphabc;
var xc,yc,r1,r2,rc,ro,n,i,x,y: integer;
a: real;
begin repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');
read(n);
until n in [5..10];
clrscr; hidecursor;
xc: =windowwidth div 2;
yc: =windowheight div 2;
r1: =40;
r2: =120;
rc: =100; ro: =30;
a: =2*pi/n;
circle(xc,yc,r2);
circle(xc,yc,r1);
for i: =1 to n do begin x: =xc+round(rc*cos(a*i));
y: =yc-round(rc*sin(a*i));
circle(x,y,ro);
end.
аборигеном
var x1,y1,z1,x2,y2,z2,d: real;
begin
writeln('введите координаты первой точки');
readln(x1,y1,z1);
writeln('введите координаты второй точки');
readln(x2,y2,z2);
d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1));
wrileln(d);
пусть р - это вероятность события при котором достается белый карандаш
тогда 2^i=1/p
но i=4
2^4=1/p
p=1/16 - вероятность доставания белого карандаша
1/16=x/16 (x - это количество белых)
количество=64/16=4 карандаша белого цвета
Популярные вопросы