}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: a614778d Описание: Код загружен: 3 сентября 2009, 20:52 (Ерёмин А.А.)

  1. program primenum;
  2.  
  3. uses WinCRT;
  4.  
  5. var
  6. x,i: word;
  7. prime: boolean;
  8.  
  9. WriteLn('x=');
  10. Read(x);
  11.  
  12. if x mod 2 = 0 then
  13. prime:=false
  14. else
  15. begin
  16. prime:=true;
  17. i:=3;
  18. while i < x do
  19. if x mod i = 0 then
  20. begin
  21. prime:=false;
  22. break;
  23. end
  24. else
  25. inc(i,2);
  26. end;
  27.  
  28. if prime then
  29. WriteLn(x,'is prime')
  30. else
  31. WriteLn(x,'isn`t prime');
  32.  
  33. end;

Ссылка на данный код:

На главную страницу сервиса обмена кодом »