社区讨论

pascal第一个点什么问题？

黎黎明时空几何
P1179[NOIP 2010 普及组] 数字统计参与者 3已保存回复 2

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
2 条
当前快照
1 份
快照标识符
@mi4eei33
此快照首次捕获于
2025/11/18 17:55
4 个月前
此快照最后确认于
2025/11/18 17:55
4 个月前
查看原帖
CPP
var
  n,m:longint;
  i,j,sum:longint;
  str1,stri,ni:ansistring;
begin
  read(n,m);
  for i:=1 to m do begin
    str(i,stri);
    str1:=str1+stri;
  end;
  str(n,ni);
  for j:=1 to length(str1) do
    if ni=str1[j] then sum:=sum+1;
  writeln(sum);
end.

回复

共 2 条回复，欢迎继续交流。

正在加载回复...