Var i,j,k,n: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> i:=1; k:=0;
</span><span> repeat
</span><span> j:=i;
</span><span> repeat
</span><span> k:=k+1;
</span><span> writeln(i,' ',j,' ',n-i-j);
</span><span> j:=j+1;
</span><span> until j>(n-i) div 2;
</span><span> i:=i+1;
</span><span> until i>n div 3;
</span><span> writeln('всего вариантов: ',k);
</span><span>end.
</span>
n = 10
<span>1 1 8
</span><span>1 2 7
</span><span>1 3 6
</span><span>1 4 5
</span><span>2 2 6
</span><span>2 3 5
</span><span>2 4 4
</span><span>3 3 4
</span><span>всего вариантов: 8
</span><span>
</span>
#include <stdio.h>
int main(){
float x, y;
x = 3.5; y = 0; //Так как из задания не понятно, откуда берутся числа
if(x > 0){
float k = x*x + y*y;
if(k >= 3*3 && k<=5*5)
printf("Принадлежит");
else
printf("НЕ принадлежит");
}
return 0;
}
Var j,i:longint;
begin
for i:=2 to 3628800 begin
for j:=2 to 3628800 do writeln(i*j:10);writeln();
end;
readln;
end<span>.</span>
Знака = не нужно, запрещается ставить в программировании!