社区讨论
大神求解，不知道哪里错了
P1151子数整数参与者 4已保存回复 3
讨论操作
快速查看讨论及其快照的属性，并进行相关操作。
- 当前回复
- 3 条
- 当前快照
- 1 份
- 快照标识符
- @mi6o745v
- 此快照首次捕获于
- 2025/11/20 08:05 4 个月前
- 此快照最后确认于
- 2025/11/20 08:05 4 个月前
var
a,b,c,k,i:qword;
x:boolean;
begin
read(k);
x:=true;
for i:=10000 to 30000 do
begin
a:=i div 100;
b:=(i div 10)mod 1000;
c:=i mod 1000;
if (a mod k=0)and(b mod k=0)and(c mod k=0)then
writeln(i);
x:=false;
a:=0;
b:=0;
c:=0;
end;
if x then
write('No');
end.
回复
共 3 条回复，欢迎继续交流。
正在加载回复...