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

0 голосов
29 просмотров

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


Информатика (31 баллов) | 29 просмотров
Дан 1 ответ
0 голосов

Var x:Integer;
Begin Write('Введите число: '); 
Read(x); 
If x mod 2 = 0 Then WriteLn('Число простое')               
                     Else WriteLn('Число не имеет общих делителей');
End.

(1.3k баллов)