Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years