杭州交通信息网硝酸酯类的贮存和运输:有会BASIC的帮忙做几道很简单的题,谢谢
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/12 03:50:55
1.输入12个数,分别求出其奇数与偶数的个数及各自的和.请编写此程序.
2.从键盘输入一个3*3的二维数组,求它的两条对角线元素的值之和.
3.编程序,从键盘输入X值,输出y值.
4.输出1~100之间能被3整除而不能同时被5整除的数。
5.编一程序. 输入10个整数,判断它能否被5或7整除,如能整除就打印该数,否则打印 “***”.
2.从键盘输入一个3*3的二维数组,求它的两条对角线元素的值之和.
3.编程序,从键盘输入X值,输出y值.
4.输出1~100之间能被3整除而不能同时被5整除的数。
5.编一程序. 输入10个整数,判断它能否被5或7整除,如能整除就打印该数,否则打印 “***”.
1.
// sumj奇数和 sumo偶数和 j奇数个数,o偶数个数
sumj=0:sumo=0:o=0:j=0
for i=1 to 12
input n
if n mod 2=1 then sumj=sumj+n:j=j+1 else sumo=sumo+n:o=o+1
next i
print sumj;j,sumo;o
2.
dim a(3,3)
for i=1 to 3
for j=1 to 3
input a(i,j)
next j,i
//sum1主对角线 sum2副对角线
for i=1 to 3
sum1=sum1+a(i,i)
sum2=sum2+a(i,4-i)
next i
print sum1,sum2
3.
x和y什么关系？？
4。
for i=1 to 100
if i mod 3=0 and i mod 5<>0 then print i,
next i
5
for i=1 to 10
input n
if n mod 5=0 or n mod 7=0 then print n else print "***"
next i
很简单呀。小儿科。