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

    Всего: 1

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

    +98

    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
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    function Prime (N: longword): boolean;
var
	i : longword;
	Max : single;
begin
	if N = 2
		then Prime := true
	else if (N <= 1) or (N mod 2 = 0)
		then Prime := false
	else begin
		Prime := true;
		i := 3; Max := sqrt(N);
		while i <= Max do begin
			if N mod i = 0 then begin
				Prime := false; 
				exit
			end;
			i := i + 2
		end
	end
end;

var
	a, i : longword;

begin
	read(a);
	for i := 2 to a do
		if Prime(i)
			then writeln(i, ' is a prime number');
end.

    Нахождение простых чисел.

    sunshinelf, 06 Июля 2011

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