Algoritmo estranho

Algoritmo par impar

var

inteiro: num;

inicio

escrever(" digite um numero:");

ler (num);

se (num%2=0) então

escrever (num," eh par.");

senão

escrever (num," eh impar.");

fim

===================================================================================================

algoritmo parte_inteira

var

inteiro: num;

inicio

escrever ("numero acima de 10:");

ler (num);

Escrever ("parte inteira da divisao por 2:");

escrever (num\2);

inteiro=num\2;

===================================================================================================

11. Escreva um algoritmo que leia um valor referente a dinheiro (por exemplo: R$543,00) e calcula qual o menor número

possível de notas de R$100,00; R$50,00; R$20,00; R$10,00; R$5,00; R$2,00 e moedas de R$1,00 em que o valor lido pode ser

decomposto. O algoritmo deverá fornecer o valor lido e a relação de notas necessárias.

algoritmo par_impar

var

inteiro: n,x,c1,c2;

inicio

c1=0;

c2=0;

escrever("Digite 20 numeros:");

para x=1 ate 20 faça

inicio

ler(n);

c1=c1+1;

senao

c2=c2+1;

fim_para;

escrever ("foram lidos ",c1, " pares.");

escrever ("foram lidos ",c2, " impares.);

fim

========================================================================================================

se(n=13) entao

c1=c1+1

se(n=45) entao

c2=c2+1

se(n=40) entao

c3=c3+1

escrever("total de votos dilma13:",c1;

Algoritmo Acertar equipe vencedora jogo futebol;

Var

Int: Mat[........], Time1[..............], Time2[.........], x, y, gt1, gt2, a1=0, a2=0, p=2;

Char: T1[30], t2[30];

Inicio

Escrever (“informe os dois times:”);

Ler