Question

Водном тесте пишет: "превышено максимальное время". : вывести все простые числа от m до n включительно. входные данные в первой строке находятся разделённые пробелом m и n. 2 < = m < = n < = 1 000 000. выходные данные вывести числа в порядке возрастания, по одному в строке. если между m и n включительно нет простых - вывести "absent". сам код: var i,a,b,c,n,d: longint; begin read(a, n); for i: =a to n do begin for b: =2 to trunc(sqrt(i)) do if i mod b=0 then c: =c+1; if c=0 then begin writeln(i); d: =d+1; end else c: =0; end; if d=0 then writeln('absent'); end.

Answer 1

//Прости, но я не понимаю что должен делать код выше, напишу свой.
//Pascal ABC. NET v3.0
var m,n:real;
i:integer;
begin
Read(m,n);
if abs(m-n)<1 then
 begin;
  write('Absent');
  exit;
 end;
for i:=trunc(m)+1 to trunc(n) do
writeln(i);
end.