Написать программу которая определяет является ли введённое с клавиатуры натуральное число n простым числом (n< 32000)

217

328

Посмотреть ответы 2

Ответы на вопрос:

katya261614

Информатика

4,4(85 оценок)

Program test; uses utils; var n,i,sum,time: longint; flag: boolean; begin readln(n); if n< 2 then flag: =false; {единица - не простое число} if n=2 then flag: =true; {2 - простое} if (n> 2) and (n mod 2 < > 0) then begin{ после двойки простые числа только нечетные} for i: =1 to n do begin{проверяем что бы было только 2 делителя} sum: =sum+1; end; if sum=2 then flag: =true; end else flag: =false; if flag then writeln('число простое') else writeln('число не простое'); time: =milliseconds; writeln('времени затрачено ',time: 10,' ms.'); end. все проверки сделаны для сокращения времени работы программы.