Question

Определить, является ли число, введенное с клавиатуры простым
В системе Паскаля

Answer 1

var  i,a:integer;  
       b:boolean:=true;
begin 
  write('Введите число = '); 
  readln(a); 
  for i:=2 to round(sqrt(a)) do    
     if a mod i = 0 then begin b:=false; break; end; 
  if b then writeln('Число ',a,' является простым') 
  else writeln('Число ',a,' не является простым')
end.

Answer 2

А можно более простым способом?

Answer 3

что то он тут намудрил

Answer 4

Что непонятно?