Задание:
Дано целое число n>2. Получите все простые числа из диапазона [2,n].
Решение:
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.
Знаете другой ответ?
Дано целое число n>2. Получите все простые числа из диапазона [2,n].
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.
Знаете другой ответ?