Pascal. ABC

Найти все трёхзначные простые числа.

Question

Информатика

Федот

17 марта, 13:51

Pascal. ABC

Найти все трёхзначные простые числа.

+3

Ответы (1)

Знаете ответ на вопрос?

Егорыч · Answer 1

Var

i, j, t: integer;

begin

for i:=100 to 999 do

begin

t:=0;

for j:=2 to i div 2 do

begin

if i mod j = 0 then

inc (t) ;

if t > 0 then

break;

end;

if t = 0 then writeln (i) ;

end;

end.

Pascal. ABCНайти все трёхзначные простые числа.

Pascal. ABC

Найти все трёхзначные простые числа.