задание 1. составьте программку , определяющую , является ли число х

Задание 1. составьте программку , определяющую , является ли число х простым. число х введите с клавиатуры. число называется обычным,если у него нет других делителей , не считая 1 и его самого.

Задать свой вопрос
1 ответ
Var x:Integer;
Begin Write('Введите число: '); 
Read(x); 
If x mod 2 = 0 Then WriteLn('Число обычное')               
                     Else WriteLn('Число не имеет общих делителей');
End.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт