• Напишите программу которая определяет является ли число простым.

Ответы 1

  • Program PrimeNumber;

    Uses Crt;

    var i,f,n:integer;begin

         clrscr;      write('Введите число:');      readln(n);

          f:=0;        for i:=2 to trunc(sqrt(n)) do              if (n mod i)=0 then f:=1;      if (f=0) then writeln('Число является простым')

                         else writeln('Число не является простым');      readkey;end.

     

     

    • Автор:

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

Войти через Google

или

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

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

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