Составте программу. Определяющую, является ли число х простым

Задание:

Составте программу. Определяющую, является ли число х простым. Число х введите склавиатуры.

Решение:

program m1; var x,del: integer; beginwrite ('Введите x: '); readln (x); write ('Делители: '); for del: =1 to x doif (x mod del)=0 thenwrite (del,'); writeln; end.

Знаете другой ответ?

Отправить свой ответ