1. Список говнокодов пользователя kolhoz

    Всего: 1

  2. Pascal / Говнокод #4403

    +97

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    Program zadacha; 
var 
   i,chislo,x,y,m,n:integer; 
begin 
   while i<1 do begin 
   for x:=0 to chislo do begin 
   for y:=0 to chislo do begin 
   for m:=0 to chislo do begin 
   for n:=0 to chislo do begin 
   if (chislo=x*x*x+y*y*y) and (chislo=m*m*m+n*n*n) and (x<>m) and (x<>y) and (y<>m) and (y<>n) then i:=1 else chislo:=chislo+1; 
   end; 
   end; 
   end; 
   end; 
   end; 
   Writeln(chislo); 
end.

    Вот так находят "минимальное натуральное число представимое двумя различными способами в виде суммы кубов двух натуральных чисел"

    kolhoz, 20 Октября 2010

    Комментарии (18)