Логической переменной P присвоить значение TRUE, если целое N — простое число

@wadya93 · Регистрация: 31.10.2011

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

Логической переменной P присвоить значение TRUE, если целое N (N>1) - простое число, и значение FALSE в противном случае.

@Puporev · 12.11.2011, 10:04

Pascal

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

@wadya93 · 12.11.2011, 22:00 **[ТС]**

Спасибо большое

@wadya93 0 / 0 / 0 Регистрация: 31.10.2011 Сообщений: 23
		1
	Логической переменной P присвоить значение TRUE, если целое N — простое число 12.11.2011, 08:55. Показов 1974. Ответов 2 Метки нет (Все метки) Логической переменной P присвоить значение TRUE, если целое N (N>1) - простое число, и значение FALSE в противном случае. 0

@wadya93 0 / 0 / 0 Регистрация: 31.10.2011 Сообщений: 23
	12.11.2011, 22:00 [ТС]	3
	Спасибо большое 0

Логической переменной P присвоить значение TRUE, если целое N — простое число

Решение