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

Паскаль, через вложенные циклы.

Question

Информатика

Ина

9 марта, 14:12

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

Паскаль, через вложенные циклы.

+5

Ответы (1)

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

Малаха · Answer 1

Var

i, j: longint;

b: boolean;

begin

b : = true;

for i : = 1000 to 9999 do

begin

for j : = 2 to i - 1 do

begin

if (i mod j = 0) then

begin

b : = false;

break;

end;

end;

if (b = true) then writeln (i) ;

b : = true;

end;

end.

Найти и вывести все простые четырёхзначные числаПаскаль, через вложенные циклы.

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

Паскаль, через вложенные циклы.