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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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