Напишите программу определения простого числа в Паскале

Question

Информатика

Виташа

20 января, 08:40

Напишите программу определения простого числа в Паскале

+1

Ответы (2)

Знаете ответ на вопрос?

Тимоха · Answer 1

Var

i, n, m, s:integer;

begin

write ('Введите число: ') ;

readln (n) ;

if n mod 2=0 then

writeln ('Число не является простым')

else begin

m:=trunc (sqrt (n)) ;

i:=3;

while (n mod i 0) and (i<=m) do i:=i+2;

if i<=m then writeln ('Число не является простым')

else writeln ('Число является простым')

end

end.

Юлий · Answer 2

Program chisla;

uses crt;

var i, a, k: integer;

begin

clrscr;

write ('введите число: ') ;

readln (a) ;

k:=0;

for i:=2 to a div 2 do

if a mod i = 0 then k:=k+1;

if k=0 then write ('простое')

else writeln ('не простое') ;

readln;

end.