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

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

Задать свой вопрос
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.
Марина Посолина
Если где непонятно, спрашивай
Камилла
а это можно как-нибудь с div, mod решить ну или с циклом, а то мы половину операторов здесь ещё не проходили
Gennadij Kalnin
Перечисли, какие исключить надобно
Полина Негляд
boolean, true, round, false
Егор Руфьев
Превосходно, только я могу только завтра.
Василий Травных
сделай пожалуйста завтра, у меня все равно урок во вторник
Валентина Зимбулатова
Сделал на данный момент, здесь переделок малюсенько, оказывается))) проверь
София Прокупец
громадное спасибо
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт