## Algoritmos qbasic 1

Classified in Computers

Written at on English with a size of 1.14 KB.

números primos

input n

i=1

L=1

while i <= n

P$="S"

J=2

While j<=i-1

S=imodJ

if s=0 then

P$="N"

end if

J=J+1

Wend

If P$ = "S" then

L=L+1

Print i

end if

i=i+1

wend

Dim A(1.1) as double

Dim C(1.1)as double

input "filas";n

Input "columnas";m

Redim A(n,m) b(n,m)

For i=1 to n

For j=1 to m

Print "termino (";i;",";j")"

input "A"; A(i,j)

Input"B"; B(i,j)

next j

next i

For i =1 to n

For j=1 to n

C(i,j)=A(i,j)+B(i,j)

next j

next i