ЛЮДИ ПОМОГИТЕ!!!Дано натуральное число. Выяснить является ли оно простым. ПаскальЕсли...

Question

ЛЮДИ ПОМОГИТЕ!!!
Дано натуральное число. Выяснить является ли оно простым. Паскаль
Если можно с пояснениями пожалуйста

Answer 1

Var
   x,i,f:integer;
begin
f:=1; //признак, определяющий простоту числа
write('Введите число: ');
readln(x);
for i:=2 to x-1 do //перебираем числа
  if x mod i=0 then f:=0; //если число делится без остатки, значит оно непростое
if f=1 then
   writeln('Это простое число')
   else writeln('Это непростое число')
end.

Comments

Если где непонятно, спрашивай

---

а это можно как-нибудь с div, mod решить ну или с циклом, а то мы половину операторов здесь ещё не проходили

---

Перечисли, какие исключить надо

---

boolean, true, round, false

---

Хорошо, только я могу лишь завтра.

---

сделай пожалуйста завтра, у меня все равно урок во вторник

---

Сделал сейчас, тут переделок мало, оказывается))) проверь

---

огромное спасибо