• Дано целое число n>2. Получите все простые числа из диапазона [2,n]. 

Ответы 1

  • Var a, b, k, j: integer;begin     readln(j);     a := 1;     b := 1;     while (j > a) do     begin          k := b;          b := b + a;          a := k;     end;     writeln(a);end.
    • Автор:

      jamie95ig
    • 2 года назад
    • 2
  • Добавить свой ответ

Войти через Google

или

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

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

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