Задача:простые числа

[zewr]

Необходимо вывести все простые числа от M до N включительно.

Входные числа содержат два натуральных числа M и N,разделенных пробелом (2<=M<=N<=10^6)

Должно вывестись:
Выведите в одной строке через пробел все простые числа от M до N в порядке возрастания.Если таковых нет,то следует вывести "Absent".

Пример:
2 5
выводиться:
2 3 5.

Пример:
4 4
выводиться:
Absent

[Alex11223]

И что? Зачем вы выложили сюда это задание? В чем проблема? Что не получается? Что получается?

[zewr]

помогите с решением этой задачи.пожалуйста.нужно написать программу

[Poma][a]

кажись так ток не выводит если ничего нет но это сам додумаешь а я спать пошел))

program EasyAndHard;

var
           m, n, sq, k : LongInt;

begin 
           ReadLn (n,m);
           for n := n to m + 1 do begin
                     k := 2;
                     sq := Trunc (sqrt(n));
                     while (n mod <> 0) and (k <= sq) do
                                Inc (k);
                     if k <= Sq then
                                 Write ('')
                     esle
                                 Write (n, ' ');
           end;
end.

[warca]

немножко подправил программу,все целые числа выдает,а вот если введешь например 5 5 все равно выводит числа.а как сделать,что бы выводилось Absent в таком случае?

[warca]

program EasyAndHard;

var
m, n, sq, k : integer;

begin
ReadLn (n,m);
for n := n to m do begin
k := 2;
sq := Trunc (sqrt(n));
while (n < 0) and (k <= sq) do
Inc (k);
if k <= Sq then
Write (n,' ')
else
Write ( 'Absent ');
end;
end.


а как вывести absent не знаю

[zewr]

получилось,помогите с выводом Absent.пожалуйста

[Firstchar]

введи еще одну переменную, присвой ей 0 и каждый раз, когда находишь простое число, прибавляй единицу (s:=s+1);
ну и потом если s больше нуля, то выводишь полученные числа, а если s равно нулю, то writeln('absent');

[Alex11223]

то выводишь полученные числа

полученные же в цикле выводятся. И откуда они возьмутся в конце? так что еще проще: если s=0, то вывод absent

[zewr]

спасибо за помощь