• PASKAL : вывести все простые числа в интервале от 1 до 50 (желательно с объяснением, очень срочно, проверьте у себя на ПК для достоверности) СПАСИБО БОЛЬШОЕ

Ответы 1

  • // PascalABC.NET 3.3, сборка 1555 от 21.10.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('N=');  for var i:=1 to n do begin    var (flag,j,r):=(True,2,Round(Sqrt(i)));    while flag and (j<=r) do      if i mod j = 0 then flag:=false      else j+=1;    if flag then Print(i)    endend.ПримерN= 501 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47
    answer img
    • Автор:

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

Войти через Google

или

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

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

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