Pascal. ABC

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

Question

Информатика

Владилен

16 октября, 05:29

Pascal. ABC

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

+5

Ответы (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

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