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

Question

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

Answer 1

63

lirikis

17 апреля 2023

Uses crt; var a: real; p: boolean; i: integer; procedure haltproc; beginwriteln ('неверные данные'); writeln ('a>=2'); readln; halt; end; beginclrscr; write ('a='); readln (a); if a<2 then haltproc; if a=2 then beginwriteln2 ('простое'); readln; halt; end; p: =true; for i: =2 to trunc (a-1) doif a/i=trunc (a/i) then p: =false; if p=truethen write ('простое') else write ('не простое'); readln; end.

пользователи выбрали этот ответ лучшим

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

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

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

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