Помогите пожалуйста!нужно написать программу, которая определяет, является ли целое число

Помогите пожалуйста!
необходимо написать программку, которая определяет, является ли целое число обычным. На уровне 9 класса, поординарнее что бы было. В паскале. Заранее спасибо!

Задать свой вопрос
1 ответ
Program p1;
uses crt;
var a,b:integer;
begin
read(a);


   If (a mod 2 = 0) and (a lt;gt; 2) or (a mod 3 =0)and (a lt;gt; 3) or (a mod 5 = 0) and (a lt;gt; 5)or (a mod 7 = 0)  and (a lt;gt; 7) then
   write(a,' непростое число')
     else
       write(a ,' простое число');
end.

Ден
Спасибо!
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт