ural 源代码

program Ural_1000(Input, Output); type TData = Longint; var A, B: TData; begin Readln(A, B); Writeln(A + B)…

program Ural_1295(Input,Output); type TIndex=Longint; var N:TIndex; begin Readln(N); case N mod 4 of 0:Writeln(0); …

{$N+} program Ural_1264(Input, Output); type TData = Extended; var N, M: TData; begin Readln(N, M); Writel…

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…

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 ural1224; var n,m:cardinal; function min(a,b:cardinal):cardinal; begin if a

program ural1243; var c:char; r:byte; begin repeat read(c); r:=(r*10+ord(c)-48) mod 7; until eoln; writ…