Var
a, b, i, j, found: integer;
begin
readln(a, b);
for i := a to b do
begin
found := 1;
for j := 2 to round(sqrt(i + 1)) do
begin
found := found * (i mod j);
if found = 0 then break;
end;
if found <> 0 then write(i, ' ');
end;
end.
Формулы пишутся буквами,а отображение значений цифрами
В ряду 1,2,...6,7 три четных числа (2,4,6) и четыре нечетных.
Три четных числа могут образовать 3!=1х2х3=6 перестановок.
Четыре нечетных числа могут образовать 4!=1х2х3х4=24 перестановки.
Поэтому общее количество перестановок равно 6х24=<u><em>144</em></u>.
КНОПКА КОТОРАЯ ВКЛЮЧАЕТ РЕЖИМ ЗАГЛАВНЫХ БУКВ-CapsLock