A Programação Basica

Var

i, quantA, somaA,quantparA, quantImpaA ,x,quantB, somaB, quantparB,quantimpaB,G,quantG,somaG: inteiro

Inicio

G <- 100

x <- 100

i <- 100

quantparB <- 1

enquanto (i <= 1999) faca

se(i mod 11 <> 5) e (i mod 11 = 0)entao

quantImpaA <- quantparA + 1

quantparA <- quantparA + i mod 2

quantA <-quantA + 1

somaA <-somaA + i

fimse

i<- i + 1

fimenquanto

enquanto (x < 2000) faca

se(x mod 11 = 5)entao

quantB <- quantB + 1

somaB <- somaB + x

quantparB <- quantparB + x mod 2

quantimpaB <- quantparB - 1

fimse

x<- x + 1

fimenquanto

enquanto (G < 1998) faca

quantG <- quantG + 1

somaG <- somaG + G

G<- G + 1

fimenquanto

escreval("quantidade da letra A:",quantA)

escreval(" a soma da letra A: ", somaA)

escreval("quantidade de par da letra A:",quantparA)

escreval("quantidade de impares da letra A:",quantImpaA)

escreval("A quantidade B:",quantB)

escreval("A soma da letra B:",somaB)

escreval("A quantidade de pares da letra B:",quantparB)

escreval("A quantidade de impares da letra B:",quantimpaB)

escreval("A resposta da letra C:",quantG)

escreval("A resposta da letra D:",somaG)

Fimalgoritmo