Тема:IntegerЗадача: Дано одно целое число, проверить, является ли оно простым. (делится на 1 и на само себя).Помогите пожалуйста)

Question

Тема:IntegerЗадача: Дано одно целое число, проверить, является ли оно простым. (делится на 1 и на само себя).Помогите пожалуйста)

Тема:Integer Задача: Дано одно целое число, проверить, является ли оно простым. (делится на 1 и на само себя). Помогите пожалуйста)

Гость

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

Accepted Answer

var i: integer; x: boolean; n: integer; begin readln(n); for i:= 2 to n - 1 do begin if n mod i = 0 then x:= true; end; if (x = false) and (n <> 1) then writeln('yes') else writeln('no'); end.