Напишите программку на языке Паскаль. Найти, является ли число, введённое с

Напишите программку на языке Паскаль. Найти, является ли число, введённое с клавиатуры простым.

Задать свой вопрос
1 ответ

var n, i: integer;

begin

   write('Введите число: ');

   readln(n);

   i:=2;

   while n mod i lt;gt; 0 do

       i += 1;

   if i = n then

       writeln('Обычное')

   else

       writeln('Не обычное');

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт