Задать вопрос
13 января, 04:09

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

+3
Ответы (1)
  1. 13 января, 05:53
    0
    Uses crt; var a : real; p : boolean; i : integer; procedure haltproc; begin writeln ('неверные данные') ; writeln ('a>=2') ; readln; halt; end; begin clrscr; write ('a=') ; readln (a) ; if a<2 then haltproc; if a=2 then begin writeln2 ('простое') ; readln; halt; end; p:=true; for i:=2 to trunc (a-1) do if a/i=trunc (a/i) then p:=false; if p=true then write ('простое') else write ('не простое') ; readln; end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Составьте программу определяющую, является ли число x простым ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы