Тема: Вложенный цикл.

[Кристина Н]

Найти все трехзначные простые числа (простым называется натуральное число, большее 1, не имеющее других делителей, кроме единицы и самого себя). НУ ОООООЧЕНЬ НУЖНО....решите пожалуйста

[hon]

var
i:integer;
   function checksimple(i: integer): boolean;
   var j:integer;
   begin
        if i<=1 then
           begin
           result:=false;
           Exit;
           end;
        for j:=2 to i-1 do
            begin
            if i mod j=0 then
               begin
               result:=false;
               Exit;
               end;
            end;
        result:=true;
   end;

begin
     i:=1;
     while i<>999 do
         begin
         if checksimple(i) then Write(i,' ');
         i:=i+1;
         end;
end.

На турбо паскаль 7.1 работет 100%

[Кристина Н]

а можно это сделать без true и false ?

[morgan97]

Замени булевский тип, любой целочислинной переменной, и используй вместо true,false, 1 и 0 соответственно.