Với N là một số nguyên dương cho trước (N<1000).Hãy tìm tất cả các bộ số nguyên tố x, y, z(x ≤ y ≤ z)là nghiệm của phương trình sau x + y + z = N.
+ Dữ liệu vào: từ file NGHIEMNT.INP gồm một số N duy nhất.
+ Dữ liệu ra: ghi ra file NGHIEMNT.OUT chứa K+1 dòng (K là số nghiệm tìm được), trong đó: - Dòng thứ i trong K dòng đầu tiên chứa 3 số nguyên tố cho biết bộ nghiệm thứ i. - Dòng thứ K+1 chứ 3 số 0 cho biết...
Đọc tiếp
Với N là một số nguyên dương cho trước (N<1000).Hãy tìm tất cả các bộ số nguyên tố x, y, z(x ≤ y ≤ z)là nghiệm của phương trình sau x + y + z = N.
+ Dữ liệu vào: từ file NGHIEMNT.INP gồm một số N duy nhất.
+ Dữ liệu ra: ghi ra file NGHIEMNT.OUT chứa K+1 dòng (K là số nghiệm tìm được), trong đó: - Dòng thứ i trong K dòng đầu tiên chứa 3 số nguyên tố cho biết bộ nghiệm thứ i. - Dòng thứ K+1 chứ 3 số 0 cho biết điểm kết thúc của file kết qủa (Các số trên cùng một dòng cách nhau một khoảng trống)
var n,x,y,z:integer;
begin
assign(input,'nghiemnt.inp');reset(input);
assign(output,'nghiemnt.out');rewrite(output);
readln(n);
for x:=0 to n do
for y:=0 to n-x do
begin
z:=n-x-y;
writeln(x,' ',y,' ',z);
end;
writeln('0 0 0');
end.
bạn có đọc kỹ đề không vậy???