80 БАЛЛОВ!!!Помогите Паскаль!!!Нужно составить программу которая проверяла является ли...

Question

80 БАЛЛОВ!!!Помогите Паскаль!!!Нужно составить программу которая проверяла является ли простым числом,введенное с клавиатуры числом

Answer 1

Program zhn;
var
  n,i,sum:integer;
begin
  write('Введите значение: ');
  readln(n);
  for i:=1 to n do begin
    if n mod i = 0 then sum:=sum+1;
  end;
  if sum = 2 then writeln('Число ',n,' является простым.')
  else writeln('Число ',n,' НЕ является простым.');
 
end.

Comments

а что за sum

---

Просто простое число имеет только два делителя, я это прверяю если количество делителей больше двух. Значит число не простое. А в sum просто записываю количество делителей

---

а будет ошибкой если я напишу в место sum.напишу х

---

без разницы

---

f cgfcb,j

---

главное что бы везде было x

---

спасибо

---

вместо sum