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

Формулировка задачи:

Найти все трехзначные простые числа(простым считается натуральное число, большее 1, не имеющее других делителей, кроме единицы и самого себя) Через оператор цикла

Решение задачи: «Найти все трехзначные простые числа»

textual
                            Листинг программы 
                        

                            program chisla;
uses crt;
var i,j,k: integer;
begin
 clrscr;
 for i:=100 to 999 do
 begin
  k:=0;
  for j:=2 to i-1 do
  if i mod j =0 then k:=k+1;
  if k=0 then write(i,'':1);
 end;
 readln;
end.
                        

Оцени полезность:

10 голосов , оценка 4 из 5

Похожие ответы