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

Question

Информатика

Димитрий

9 января, 08:35

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

+1

Ответы (1)

Знаете ответ на вопрос?

Рома · Answer 1

Var x:Integer;

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

Read (x) ;

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

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

End.