我无语了》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》

**本人用的是枚举** ```cpp var k,m,n,t,q:longint; begin readln(k); for m:=1 to k do for n:=1 to k do begin if sqr(sqr(n)-m*n-sqr(m))=1 then begin if sqr(m)+sqr(n)>sqr(t…

```cpp var a:array [1..10000] of double; s,x,i,n,b,j:longint; m:double; begin readln(s,x); a[1]:=7; for i:=2 to s do begin a[i]:=a[i-1]*0.98; end; for j:=1 to s…

```cpp var a:array[1..10000]of longint; i,n:longint; str1:string; begin readln(n); readln(str1); for i:=1 to length(str1) do begin a[i]:=ord(str1[i])+n; end; fo…

在讨论《样例有误？》回复：

我也这样觉得@ jy666666

在讨论《20分有毒。。》回复：

```cpp var x,n,a:longint; begin readln(x,n);{输入天数} a:=0; while n>0 do begin if x<6 then a:=a+250; n:=n-1; x:=x+1; if x=8 then x:=1; end; writeln(a); end.｛大水题｝ `…