program ural1000; var a,b:integer; begin readln(a,b); writeln(a+b); end.
ural 源代码
汇集 ural 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
program ural1293; var n,a,b:byte; begin read(n,a,b); writeln(n*a*b*2); end.
program ural1264; var n,m:word; begin read(n,m); writeln(n*(m+1)); end.
program ural1335; var n:word; begin read(n); writeln(n*(n+1),' ',n*(n+2),' ',n*n); end.
program Ural_1082(Input, Output); type TIndex = Longint; var i, N: TIndex; begin Readln(N); for i := 1 to N…
program Ural_1293(Input, Output); type TData = Longint; var N, A, B: TData; begin Readln(N, A, B); Writeln(…
{$N+} program Ural_1224(Input, output); type TData = Extended; var N, M: TData; begin Readln(N, M); if N
//note: if use extended wa at 12 program Ural_1336(Input,Output); type TData=Int64; var N:TData; begin Readln(N); Writ…
program Ural_1059(Input, Output); type TIndex = Integer; var i, N: TIndex; begin Readln(N); Writeln(0); …
program Ural_1335(Input,Output); type TIndex=Longint; var N:TIndex; begin Readln(N); Writeln(N*(N+1),' ',N*(N+2),' ',N*…