В идеале вот:
<span>uses ABCObjects, GraphABC;
const
x0 = 300;
y0 = 300;
K = 10;
var
i, j, x1, y1, x, y, n: integer;
x2, y2, fi, t: real;
begin
x := x0;
y := y0;
n := 500;
for j := 0 to K - 1 do
begin
fi := 2 * pi * j / K;
for i := 1 to n do
begin
t := 2 * pi * i / n;
x2 := 100*cos(t)+ 150;
y2 := 20*sin(t);
x1 := round(x2 * cos(fi) - y2 * sin(fi));
y1 := round(x2 * sin(fi) + y2 * cos(fi));
if i > 1 then
Line(x + x0, y0 - y, x0 + x1, y0 - y1);
x := x1;
y := y1;
end;
end;
new CircleABC(x0,y0,50,clyellow);
end<span>.</span></span>
Для уменьшения их размера.
// PascalABC.NET
var
a: integer;
begin
readln(a);
a := a mod 10;
writeln(a);
end.
#include <iostream>
using namespace std;
int main()
{
int a,b,n = 0;
float S = 0;
cin >> a;
cin >> b;
for(int i = a; i <= b; i++)
{
n++;
S+=i*i;
}
S = S/n;
cout.setf(ios::fixed);
cout.precision(2);
cout << "S = " << S << endl;
return 0;
}
Научная, деловая, иллюстрированная, художественная и рекламная графика, компьютерная анимация.