Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  największa liczba Adamczyk
Language: PASCAL
Code:
program najwiekszainajmniejszaliczba; 
uses crt; 
var a, s, d, f, g : integer; 
begin 
 randomize (); 
 a:= random(10); 
 s:= random(10); 
 d:= random(10); 
 f:= random(10); 
 g:= random(10);
 if a>s then 
 begin; 
  if a>d then 
  begin; 
   if a>f then 
   begin; 
    if a>g then 
    begin; 
     write('spośród liczb ',a,' ',s,' '); 
     write(d,' ',f,' ',g); 
     writeln(' nawieksza jest liczba ',a); 
     repeat until keypressed; 
    end; 
   end; 
  end; 
 end else 
  if s>a then 
  begin; 
   if s>d then 
   begin; 
    if d>f then 
    begin; 
     if f>g then 
     begin; 
      write('spośród liczb ',a,' ',s,' '); 
      write(d,' ',f,' ',g); 
      writeln(' nawieksza jest liczba ',s); 
      repeat until keypressed; 
     end; 
    end; 
   end; 
  end else
  if d>s then 
  begin; 
   if d>a then 
   begin; 
    if d>f then 
    begin; 
     if d>g then 
     begin; 
      write('spośród liczb ',a,' ',s,' '); 
      write(d,' ',f,' ',g); 
      writeln(' nawieksza jest liczba ',d); 
      repeat until keypressed; 
     end; 
    end; 
   end; 
  end else
  if f>s then 
  begin; 
   if f>d then 
   begin; 
    if f>a then 
    begin; 
     if f>g then 
     begin; 
      write('spośród liczb ',a,' ',s,' '); 
      write(d,' ',f,' ',g); 
      writeln(' nawieksza jest liczba ',f); 
      repeat until keypressed; 
     end; 
    end; 
   end; 
  end else
  if g>s then 
  begin; 
  if g>d then 
  begin; 
   if g>f then 
   begin; 
    if g>a then 
    begin; 
     write('spośród liczb ',a,' ',s,' '); 
     write(d,' ',f,' ',g); 
     writeln(' nawieksza jest liczba ',g); 
     repeat until keypressed; 
    end; 
   end; 
  end; 
 end else
 write('Wśród liczb ',a,' ',s,' ',d,' ',f,' ',g);
 writeln(' są liczby równe');
 repeat until keypressed;  
end.
          
          
          
          
          
          
          
          
          
          
Comments: