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

Question

48

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

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

ответить

в избранное ссылка

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

jevirs · Accepted Answer

57

jevirs

06 апреля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: