<u>// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses GraphABC;
begin
var (w,h):=(800,600); // размер графического окна
SetWindowSize(w,h);
var (xc,yc):=(w div 2,h div 2); // координаты центра
var R:=h-yc-20; // радиус описанной окружности
var n:=ReadInteger('Количество сторон n =');
Window.Clear;
Pen.Width:=5;
Pen.Color:=clRed;
var P:=new Point[n];
for var i:=0 to n-1 do begin
var arg:=2*Pi*i/n-Pi/2;
P[i].X:=Trunc(xc+R*cos(arg));
P[i].Y:=Trunc(yc+R*sin(arg))
end;
DrawPolygon(P);
end.
program zadacha;
var
a:integer;
begin
read(a);
if (a>=10)and(a<=20)then
write('Принадлежит')
else
write('Не принадлежит')
end.
Поделить на 1000 !!!!!!!!!!!!! смотря какое число
<span>12 10 – 5 7 + * 7 – 2 * =
</span><span>2 5 7 + * 7 – 2 * =
</span>2 12 * 7 – 2 * =
24 7 -2 * =
17 2 * =
34