二十六课:集合
发表时间:2002-12-02 00:00:00 关键词:奥赛,PASCAL,编程,源码
(点击:) 把这篇文章告诉我的QQ或MSN朋友
program jihe(input,output);
type
shuji=set of 1..10;
var
shuji1,shuji2,shuji3:shuji;
a:integer;
begin
shuji1:=[3,4,5];
shuji2:=[6,8,4];
shuji3:=shuji1+shuji2;
repeat
read(a);
if (a in shuji3) then writeln('yes')
else writeln('no');
until a=-1;
end.
本站特约顾问律师常州东晟律师事务所朱立律师(电话13915029670,QQ646146109)提醒您:
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
