48

Пожалйста помогите решить! Составить программу определяющую, является ли число…

05 марта 2023

Пожалйста помогите решить! Составить программу определяющую, является ли число xпростым.

категория: информатика



57

var x,i: integer; a: boolean; beginreadln (x); for i: =2 to x-1 do if (x div i=x/i) then begin a: =true; break; end; if a=true then writeln ('Ne prostoe') else writeln ('Prostoe'); end.

Знаете ответ?


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