Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым

Beloglazov

Всем привет. Не могу решить эти задания. Можете помочь?Я то я пропустил темы,теперь плохо понимаю.3. Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым (простое число – делится нацело только на 1 и на само себя, н-р: 7, 13, 37).
2 ответа

Beloglazov

3.
function prost(a:integer):boolean;
var
  i:integer;
begin
  prost:=true;
  for i:= 2 to round(sqrt(a)) do
  if a mod i = 0 then begin
    prost:=false;
    break;
  end;
end;
var
  a:integer;
begin
  readln(a);
  if prost(a) then writeln(' chislo ',a,' prosto')
  else writeln('chislo ',a,' ne prostoe');
end.


Beloglazov

Law[L]esS, Спасибо