Составить блок схему и программу В последовательности от 1 до n вывести простые числа, число является простым если оно имеет 2 делителя, 1, и само себя
Answers & Comments
Mepkypuu
Var i,k,count,n:integer; begin readln(n); for i:= 1 to n do begin count:=0; for k:= 1 to i do if i mod k = 0 then if (i div k = 1) or (i div k = i) then count:= count+1 else count:=3; if count=2 then writeln(i); end; end.
Answers & Comments
begin
readln(n);
for i:= 1 to n do
begin
count:=0;
for k:= 1 to i do
if i mod k = 0 then
if (i div k = 1) or (i div k = i) then
count:= count+1
else count:=3;
if count=2 then
writeln(i);
end;
end.