data _NULL_;
file print;
do i=1 to 9;
do j=1 to i;
k=i*j;
str=trim(left(i)) || '*' || trim(left(j)) || '=' || left(k);
put #i @ (8*j) str @;
end;
end;
run;
data _NULL_;
file print;
do i=1 to 9;
do j=i to 9;
k=i*j;
str=trim(left(i)) || '*' || trim(left(j)) || '=' || left(k);
put #i @ (8*j) str @ ;
end;
end;
run;
data _NULL_;
file print;
do i=1 to 9;
do j=1 to i;
k=i*j;
str=trim(left(i)) || '*' || trim(left(j)) || '=' || left(k);
put #i @ (80-8*j) str @ ;
end;
end;
run;
data _NULL_;
file print;
do i=1 to 9;
do j=9 to i by -1;
k=i*j;
str=trim(left(i)) || '*' || trim(left(j)) || '=' || left(k);
put #i @ (80-8*j) str @ ;
end;
end;
run;



雷达卡



京公网安备 11010802022788号







