function Len(x1,y1, x2, y2:real):real;
begin
Len := sqrt( sqr(x1 - x2) + sqr(y1 - y2) );
end;
var
x1,x2,x3,x4,x5, y1, y2, y3, y4, y5:real;
begin
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
write('x3 = '); readln(x3);
write('y3 = '); readln(y3);
write('x4 = '); readln(x4);
write('y4 = '); readln(y4);
write('x5 = '); readln(x5);
write('y5 = '); readln(y5);
writeln('P = ', Len(x1,y1,x2,y2) + Len(x2,y2,x3,y3) + Len(x3,y3,x4,y4) + Len(x4,y4,x5,y5) + Len(x5,y5,x1,y1));
end.
using namespace std;
int main() {
int n,k10,k5,k2,k1,k;
cout << "n = ", cin >> n, cout << "\n";
k = 0;
for (k10=0; k10<=n / 10; k10++)
for (k5=0; k5<=(n-10*k10) / 5; k5++)
for (k2=0; k2<=(n-10*k10-5*k5) / 2; k2++) {
k1 = n-10*k10-5*k5-2*k2;
cout << k10 << " " << k5 << " " << k2 << " " << k1 << "\n";
k = k+1;
}
cout << "k = " << k;
return 0;
}
Пример:
n = 16
0 0 0 16
0 0 1 14
0 0 2 12
0 0 3 10
0 0 4 8
0 0 5 6
0 0 6 4
0 0 7 2
0 0 8 0
0 1 0 11
0 1 1 9
0 1 2 7
0 1 3 5
0 1 4 3
0 1 5 1
0 2 0 6
0 2 1 4
0 2 2 2
0 2 3 0
0 3 0 1
1 0 0 6
1 0 1 4
1 0 2 2
1 0 3 0
1 1 0 1
k = 25