Question

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

Answer 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.

Answer 2

public int gcd(int x, int y) {         if(y == 0) return x;         if(y ==  x) Concole.Write(x + " ";)  // выводим простое число         return gcd(y, x % y); } // вызов gcd(2,n);