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

Question

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

Answer 1

68

lenaskl

26 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить