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

CategoriesАлгебраПредмет

делителей , кроме 1 и его самого.

Ответы:

Var x:Integer,

Begin Write(Введите число: ), 

Read(x), 

If x mod 2 = 0 Then WriteLn(Число простое)               

                     Else WriteLn(Число не имеет общих делителей),

End.