Определение простых и составных чисел

@Н@т@льюшк@ · Регистрация: 09.09.2011

Author24 — интернет-сервис помощи студентам

Написать программу : является ли данное число простым или составным???

@SuPeR XaKer · 09.09.2011, 16:28

думаю если поиском воспользуетесь то штук 500 таких же заданий найдёте.

@Н@т@льюшк@ · 09.09.2011, 16:37 **[ТС]**

Темы такие есть,но программа не та...

@Puporev · 09.09.2011, 16:46

Pascal

uses crt;
var n,i,j,k:integer;
    f:boolean;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
k:=0;
if n=1 then f:=false
else
 begin
  f:=true;
  j:=2;
  while (j*j<=n) and f do
  if n mod j=0 then f:=false
  else inc(j)
 end;
if f then write('Это простое число')
else write('Это составное число');
readln
end.

magirus · 09.09.2011, 16:46

Комментарий модератора

объединил две темы

@Н@т@льюшк@ 0 / 0 / 0 Регистрация: 09.09.2011 Сообщений: 9
		1
	Определение простых и составных чисел 09.09.2011, 16:17. Показов 2630. Ответов 4 Метки нет (Все метки) Написать программу : является ли данное число простым или составным??? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	09.09.2011, 16:28	2
	думаю если поиском воспользуетесь то штук 500 таких же заданий найдёте. 1

@Н@т@льюшк@ 0 / 0 / 0 Регистрация: 09.09.2011 Сообщений: 9
	09.09.2011, 16:37 [ТС]	3
	Темы такие есть,но программа не та... 0