Программа подсчета простых трёхзначных чисел

morlok

Всем привет!Нужна помощь в составлении программ: 2)программы подсчета простых трёхзначных чисел
3 ответа

morlok

Всех или которые вводятся?


morlok

я так понимаю что всех,просто так само задание написано.


morlok

program prostoe3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var n,i,c,j,k,d:integer;
    a:array[1..900] of integer;
begin
   n:=100;
   for i:=1 to 900 do begin
      a[i]:=n;
      n:=n+1;
   end;
   d:=0;
   for i:=1 to 900 do begin
      k:=0;
      c:=trunc(sqrt(a[i]));
      for j:=2 to c do begin
         if a[i]mod j=0 then k:=k+1;
      end;
      if k=0 then d:=d+1;
   end;
   write(d);
   readln;
end.