составить программу в паскале для поиска простых чисел в числовом промежутке от 1 до 100

Question

Информатика

Кирилична

9 мая, 17:00

составить программу в паскале для поиска простых чисел в числовом промежутке от 1 до 100

+4

Ответы (1)

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

Стефанида · Answer 1

program abc;

var

i, j:integer;

pr:boolean;

begin

writeln ('Простые числа в диапазоне от 1 до 100: ') ;

for i : = 2 to 100 do

begin

pr : = true;

for j : = 2 to i div 2 do

if i mod j = 0 then

begin

pr : = false;

break;

end;

if pr then

write (i, ' ') ;

end;

writeln;

end.