Вопрос Напишите программу на паскале, которая ищет простые числа от 1 до n
- Автор темы Игорь135
- Дата начала
первая ссылка в гугле по названию темы.... Найти все простые числа от 1 до n.
uses crt;
var
i, j, n, k: integer;
f: boolean;
begin
read
;
k:= 0;
f:= true;
for i:= 3 to n do
begin
for j:= 2 to i-1 do
begin
if ((i mod j) = 0) then
f:= false;
end;
if f then
inc(k);
f:= true;
end;
writeln(k);
readkey;
end.
uses crt;
var
i, j, n, k: integer;
f: boolean;
begin
read
;k:= 0;
f:= true;
for i:= 3 to n do
begin
for j:= 2 to i-1 do
begin
if ((i mod j) = 0) then
f:= false;
end;
if f then
inc(k);
f:= true;
end;
writeln(k);
readkey;
end.