📄 nr_pr_ro.pas
字号:
program nr_prim;
var a,b,i,j,d :integer;
begin
write('a=');readln(a);
write('b=');readln(b);
for i:=a to b do
begin
d:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j =0 then d:=d+1;
if d=0 then write('i=',i);
end;
readln;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -