New Summoner Rift 2014

alan

rFaça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos. Mostre comoresultado se houve lucro, prejuízo ou empate para cada produto. Informe media de preço de custo edo preço de venda4. Algoritmo;DeclareVar pcusto, pvenda, lucro:real;i :inteiro;nomeproduto :string;Iníciopara i←1 até 40 façaescreva (‘Digite o nome do produto: ’);leia (nomeproduto);escreva (‘Digite o preço de custo: ’);leia (pcusto);escreva (‘Digite o preço de venda: ’);leia (pvenda);se pvenda >pcustoentão escreva (‘deu lucro ’)senão se pvenda = pcustoentão escreva (‘empate, nem lucro, nem prejuízo ’)senão escreva (‘prejuízo ’);fimse;fimse;fimpara;Fim.Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em ordem crescente.5. Algoritmo;DeclareVar i :inteiro;Iníciopara i←1 até 10 façaescreva (i);fimpara;Fim.
Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em ordemdecrescente.6. Algoritmo;DeclareVar i,c :inteiro;Inícioc←10;para i←1 até 10 façaescreva (c);c←c-1;fimpara;Fim.Escreva um algoritmo para imprimir os 10 primeiros números inteiros maiores que 100.7. Algoritmo;DeclareVar i :inteiro;Iníciopara i←101 até 110 façaescreva (i);fimpara;Fim.
Ler um valor N e imprimir todos os valores inteiros entre 1 (inclusive) e N (inclusive). Considere que oN será sempre maior que ZERO.8. Algoritmo;DeclareVar i, n :inteiro;Inícioescreva (‘Digite um número maior que zero’);leia (n);para i←1 até n façaescreva (i );fimpara;Fim.Modifique o exercício anterior para aceitar somente valores maiores que 0 para N. Caso o valorinformado (para N) não seja maior que 0, deverá ser lido um novo valor para N.9. Algoritmo;DeclareVar i, n, parada :inteiro;Inícioescreva (‘Digite um número maior que zero’);leia (n);se n>0entãopara i←1 até n façaescreva (i );fimpara;fimse;Fim.Escreva um algoritmo que calcule e imprima a tabuada do 8 (1 a 10).10. Algoritmo;DeclareVar i,res :inteiro;Iníciopara i←1 até 10 façares←i*8;escreva (i , ‘ x ’, 8 , ‘ = ’,