源码文件
program ural1224; var n,m:cardinal; function min(a,b:cardinal):cardinal; begin if a
ural 源代码
汇集 ural 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 49 份
全站深度检索
共匹配 49 份工程资源
· 第 5 / 5 页
源码文件
program ural1243; var c:char; r:byte; begin repeat read(c); r:=(r*10+ord(c)-48) mod 7; until eoln; writ…
源码文件
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 ural1327; var a,b:word; begin read(a,b); if not odd(a) and not odd(b) then writeln((b-a) shr 1) else …
源码文件
program ural1327; var a,b:word; begin read(a,b); if not odd(a) and not odd(b) then writeln((b-a) shr 1) else …