ural 源代码

program ural1260; const maxn=55; var a:array[1..maxn]of longint; n,i:byte; begin a[1]:=1;a[2]:=1;a[3]:=2; read(n…

program ural1247; var s,n,i,x,sum:longint; begin read(s,n); for i:=1 to s do begin read(x); inc(sum,x); …

program ural1283; var b,ans:longint; a,c:real; begin read(a,b,c); c:=1-c/100; while a>b do begin inc(ans); …

program ural1214; var x,y:longint; begin read(x,y); if (x>0) and (y>0) and odd(x+y) then writeln(y,' ',x) else …

program ural1225; const maxn=45; var f:array[1..maxn]of cardinal; n,i:byte; begin read(n); f[1]:=2;f[2]:=2; f…

program ural1082; var n,i:integer; begin readln(n); for i:=1 to n-1 do write(i,' '); writeln(n); end.

program ural1059; var n,i:word; begin readln(n); writeln(0); for i:=1 to n do begin writeln('X'); writeln(…

program ural1068; var n:integer; begin readln(n); writeln((1+n)*(abs(n-1)+1) div 2); end.

program ural1194; var n,k:integer; begin readln(n,k); writeln(n*(n-1) div 2-k); end.

program ural1191; var l,n,k,i:byte; begin readln(l,n); for i:=1 to n do begin read(k); dec(l,l mod k); i…