• Вывести на экран все простые числа в диапазоне от A до В.

Ответы 1

  • program tmp; uses crt; var m,i:longint;   function simple(n:longint):boolean; var i:longint; begin simple:=true; for i:=2 to round(sqrt(n)) do if n mod i=0 then begin simple:=false; break; end; end;   begin clrscr; write('enter n: '); readln(n); for i:=2 to n do if simple(i) then write(i,' '); readkey; end.
    • Автор:

      angelhceq
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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