Задание:
Составьте программу определяющую, является ли число x простым
Решение:
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.
Знаете другой ответ?