码制+硬件.docVIP

读程序练习二+码制+硬件 第十五届（1-3题） 1.var a,b:integer; function work(a,b:integer):integer; begin if a mod b 0 then work := work(b,a mod b) else work := b; end; begin read(a,b) ; writeln(work(a,b); end. 输入：123 321 2.var a,b:array[0..3]of?integer; i,j,tmp:integer;beginfor?i?:=?0?to?3?do??read(b[i]);for?i?:=?0?to?3?do???begin??? ?a[i]?:=?0;??? ?for?j?:=?0?to?i?do??? ?begin????? ?inc(a[i],b[j]);????? ?inc(b[a[i]?mod?4],a[j]);?? ??end;end;tmp:=1;for?i?:=?0?to?3?do begin??? ?a[i]?:=?a[i]?mod?10;?? ??b[i]?:=?b[i]?mod?10;???? tmp?:=?tmp?*?(a[i]?+?b[i]); end;writeln(tmp