• Дано число А. Определить, является ли оно простым (простое это натуральное число имеющие ровно два различных натуральных делителя: пшеницы и само себя)

Ответы 1

  • var a,i,k:integer;beginreadln(a);for i:=2 to a-1 doif (a mod i)=0 then k:=k+1;if k=0 then writeln('Простое')else writeln('Сложное');end.
  • Добавить свой ответ

Войти через Google

или

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

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

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