Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ooo
Language: PASCAL
Code:
const n=9;
Procedure symma (n:integer); 
var g,z,s,d,i,j,k:integer; 
begin 
randomize; 
writeln ('vvedite d: '); 
readln (d); 
writeln ('cifri: '); 
for i:=0 to n do 
begin
for j:=0 to n do 
for k:=0 to n do 
for s:=0 to n do
for g:=0 to n do
if d=j+k+s+g then begin 
writeln; 
write (j,k,s,g);
end; end; end;
var i,s:integer; 
begin symma (n);
readln;
end.
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
Comments: