TXT

crypt1

By Sean Richardson,2014-05-13 07:40
14 views 0
{ ID:zhaicon2 PROG:crypt1 LANG: PASCAL } program crypt1; var p,q1,q2,q3,a,s:array[1..10]of longint; n,total:longint; procedure init; begin assign(input,'crypt1.in'); assign(output,'crypt1.out'); reset(input); rewrite(output); end; procedure terminate; begin close(input); close(output); halt; end; function can(x:long..
null
null
null

Report this document

For any questions or suggestions please email
cust-service@docsford.com