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

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

Question

Информатика

Хаврония

2 мая, 19:40

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

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

+4

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

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

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

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