1 条题解

  • 0
    @ 2021-6-15 10:11:08

    C++ :

    #include<iostream>
    using namespace std;
    int main()
    {
    	int i,a;
    	a=0;
    	for(i=6; i<=320; ++i)
    		if(i%2==1&&i%3==1&&i%5==1)
    		{a++; 
    			if(a<10)
    			cout<<i<<" ";
    			else
    				cout<<i;}
    			return 0;
    		}
    

    Pascal :

    program bhgtf;
    var
      a:array[1..100] of integer;
      i,s,t,j,b:integer;
    begin
      b:=0;
      for i:=2 to 1000 do
      if b<=10 then
      begin
        if (i mod 2=1)and(i mod 3=1)and(i mod 5=1) then
        begin
          inc(b);
          a[b]:=i;
        end;
      end
      else break;
      for j:=1 to 9 do
      write(a[j],' ');
      writeln(a[10]);
    end.
    
    • 1

    信息

    ID
    390
    时间
    1000ms
    内存
    128MiB
    难度
    (无)
    标签
    递交数
    0
    已通过
    0
    上传者