Comando Enquanto

1)

var

A : REAL

CONT : INTEIRO

inicio

// Seção de Comandos

ESCREVAl ( " DIGITE UM NUMERO OU ZERO PARA FINALIZAR " )

lEIA ( A )

ENQUANTO ( A <> 0 ) FACA

CONT <- CONT + 1

ESCREVAL ( " DIGITE UM NUMERO OU ZERO PARA SAIR " )

LEIA ( A )

FIMENQUANTO

ESCREVAL ( " FORAM DIGITADOS : ", CONT, " NUMEROS " )

fimalgoritmo

2)

var

A : INTEIRO

CONT : INTEIRO

inicio

// Seção de Comandos

ESCREVAl ( " DIGITE UM NUMERO OU ZERO PARA FINALIZAR " )

lEIA ( A )

ENQUANTO ( A <> 0 ) FACA

se ( A MOD 3 = 0 )ENTAO

CONT <- CONT + 1

FIMSE

ESCREVAL ( " DIGITE UM NUMERO OU ZERO PARA SAIR " )

LEIA ( A )

FIMENQUANTO

ESCREVAL ( " FORAM DIGITADOS : ", CONT, " NUMEROS " )

fimalgoritmo

3)

var

A : INTEIRO

CONT, SOMA : INTEIRO

inicio

// Seção de Comandos

ESCREVAl ( " DIGITE UM NUMERO OU ZERO PARA FINALIZAR " )

lEIA ( A )

ENQUANTO ( A <> 0 ) FACA

se ( A MOD 3 = 0 )ENTAO

CONT <- CONT + 1

SOMA <- SOMA + A

FIMSE

ESCREVAL ( " DIGITE UM NUMERO OU ZERO PARA SAIR " )

LEIA ( A )

FIMENQUANTO

ESCREVAL ( " A MEDIA DOS NUMEROS MULTIPLOS DE 3 E: ", SOMA / CONT)

fimalgoritmo

4)

var

A : INTEIRO

NEGATIVO, POSITIVO : INTEIRO

inicio

// Seção de Comandos

ESCREVAl ( " DIGITE UM NUMERO OU ZERO PARA FINALIZAR " )

lEIA ( A )

ENQUANTO ( A <> 0 ) FACA

se ( A > 0 )ENTAO

POSITIVO <- POSITIVO + A

SENAO ( A < 0 )

NEGATIVO <- NEGATIVO + A

FIMSE

ESCREVAL ( " DIGITE UM NUMERO OU ZERO PARA SAIR " )

LEIA ( A )

FIMENQUANTO

ESCREVAL ( " A SOMA DOS POSITIVOS E : ", POSITIVO )

ESCREVAL ( " A SOMA DOS NEGATIVOS E : ", NEGATIVO )

ESCREVAL ( " A SOMA DOS POSITIVOS E NEGATIVOS E : ", NEGATIVO + POSITIVO )

fimalgoritmo

5)

var

altura, altura2, media: real

idade, cont: inteiro

inicio

// Seção de Comandos

Escreval ( " Digite sua idade para ser calculada a media das pessoas maiores que 50 anos," )

escreva (" ou o numero zero para sair: " )

leia ( idade )

enquanto ( idade <> 0 ) faca

escreva ( " Digite sua altura " )

leia ( altura )

se idade >= 50 entao

cont <- cont + 1

altura2 <- altura2 + altura

media <- altura2/cont

fimse

escreva ( " Digite sua idade, ou o numero zero para sair: " )

leia ( idade )

fimenquanto

escreva ( " A altura media das pessoas maiores que 50 anos e : ", media )

fimalgoritmo

6)

var

renda, somaR, mediaf, mediaR: real

numero, filhos, somaF, cont : inteiro

inicio

// Seção de Comandos

Escreva ( " Digite o numero, ou zero para sair " )

leia ( numero )

enquanto ( numero <> 0 ) faca

escreva ( " I`nforme a renda familiar " )

leia ( renda )

escreva ( " Informe a quantia de filhos da familia " )

leia ( filhos )

somaR <- somar + renda

somaf <- somaf + filhos