Verified answer

1- Oi Mariana! eu não uso o visual G, mas a lógica fica assim em qualquer programação:

inicio:

var:

inteiro:num1;

escreval("digite um numero");

Leia(num1);

se(num1%2=0)faca:

escreval("é divisível por 2");

senao:

se(num1%3=0)faca:

escreval("é divisível por 3");

senao:

se(num1%2=0 && num1%3=0)faca:

escreval("É divisível por 2 e 3");

fimse;

fimsenao;

fimse;

fimsenao;

fimse;

fim;

Receber um valor e exibir se ele é múltiplo de 5

var

x:inteiro

inicio

// Seção de Comandos

escreval ("Digite um numero")

leia(x)

se x mod 5= 0 entao

escreval("É multiplo de 5")

senao

escreval ("Não é multiplo de 5")

fimse

fimalgoritmo

Receber um valor e exibir se é divisível por 2 e 3

var

x:inteiro

inicio

// Seção de Comandos

escreval ("Digite um numero")

leia(x)

se x mod 2= 0 entao

escreval("É divisel por 2")

se x mod 3 =0 entao

escreval ("É divisivel por 3")

fimse

senao

escreval ("nao é divisor de 2 e 3")

fimse

fimalgoritmo

Receber três valores distintos, definir e exibir o maior valor

var

x,y,z:inteiro

inicio

// Seção de Comandos

escreval ("Digite um numero inteiro")

leia(x)

escreval ("Digite um numero inteiro")

leia(y)

escreval ("Digite um numero inteiro")

leia(z)

se x > y entao

se x >z entao

escreval("O Primeiro numero digitado e maior")

fimse

fimse

se y > x entao

se y > z entao

escreval ("O segundo numero digitado é maior")

fimse

fimse

se z > x entao

se z > y entao

escreval ("O terceiro numero digitado e maior")

fimse

fimse

se x=y entao

se x=z entao

escreval ("sao todos numero iguais")

fimse

fimse

fimalgoritmo

deu um trabalhinho mais espero ter ajudado. ou tentado ajudar.

posta o código q vc fez até agora no pastebin;

irei analisar;